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THERMAL  VACUUM  TEST  FACILITY 
1.0  Assembling  the  Equipment  Rack 
equipment  Needed! 


(does  not  include 
interface  cards* 
cables*  or 
software  items) 


Crack  <2  only) 
Crack  #2  only) 


1, 

2, 

3, 

4, 

5, 


6. 

7. 

8. 

9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 
17, 
13, 

19. 

20. 
21. 
22. 


69  7/8  inch  Cabinet  Rack 
Sliding  Desk  Top  Shelf 
Rack  Mount  Tray 

Power  Strips  with  at  least  15  outlets 

9825  Calculator  with  flexible  disk  drive, 

plot ter-gener al  I/O-extended  I/D,  and 

string-advanced  progr ammimg  RC**s 

9878  I/C  Expander 

9885M  Flexible  Disk  Drive 

9985S  Flexibla  Disk  Drive 

98035  Real  Time  Clock 

Racal-Dana  Counter 

Cs  Control  Box 

27V  Power  Supply 

Chamber  Temperature  Controller 

436  RF  Power  Meter 

59301  ASCII  to  Parallel  Converter 

Analog  Thermometer  Matrix 

3455  Oigital  Voltmeter 

3495  Scanner 

Kepco  Bipolar  Operational  Power  Supply 
7245  Plotter/Printer 
1350  Graphics  Translator 
1311  Oisplay 


ASSEMBLY:  This  paragraph  describes  the  assembly  of  the 
cabinet.  Two  different  versions  of  the  rack  can  be  built.  The  1st 
rack  contains  items  1-20  from  the  equipment  list  above.  These 
items  are  arranged  in  the  cabinet  as  shown  in  figure  1.1.  Item  20* 
the  p lottar/pr inter  is  not  rack-mountable*  but  can  be  placed  on  a 
table  top.  The  2nd  rack  contains  the  items  marked  Crack  HZ  only), 
in  addition  to  items  1-20.  The  graphics  translator  and  display 
generate  soft-copy  lists  and  plots  and  are  driven  by  the  same 
software  that  runs  the  1st  rack.  The  equipment  does  not  all  fit 
into  rack  <2.  See  figure  1.2.  The  graphics  translator  is  placed 
in  slot  reserved  for  the  calculator  in  rack  <1.  The  calculator* 
display*  and  plotter/pr inter  are  placed  on  a  table  top. 

SELECT  COOES  and  DEVICE  ADDRESSES:  Each  device  has  its  own 
unique  select  code  and  device  address.  The  select  code  is  a  single 
digit  from  0  to  9  specified  on  the  bus  interface  card  by  adjusting 
a  rotary  select  switch.  The  device  address  is  a  two  digit  number 
from  0  to  31  specified  by  selecting  the  appropriate  bits  on  a  dip 
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switch.  The  dip  switch  is  usually  located  on  the  back  panel  of  an 
instrument*  but  sometimes  is  placed  on  a  board  and  is  accessible 
only  by  taking  the  cover  off.  Three  different  buses  are  used  in 
this  system.  Each  bus  requires  its  own  slot  in  the  I/O  expander 
box.  The  93035  HP-13  interface  is  set  to  SC  7,  the  93032  opt  085 
disk  interface  is  set  to  SC  3*  and  the  93035  real  time  clock*  which 
requires  its  own  slot*  is  set  to  SC  9.  All  the  instruments  which 
communicate  with  the  calculator,  except  the  clock  and  disk  drives, 
talk  over  the  HP-13.  The  device  addresses  for  each  instrument  are 
listed  in  table  I.  Although  the  RF  power  meter  is  a  bus-compatible 
instrument*  it  is  not  placed  on  the  Dus.  Rather,  the  recorder 
output  on  the  back  panel  is  sampled  by  the  voltmeter.  The  master 
disk  drive  is  set  to  drive  0  by  a  rotary  select  switch  on  the  back 
panel  of  the  instrument.  The  slave  disk  drive  is  set  to  drive  1. 


Taol  9 

I :  Select 

Codes  ana  Device  Addresses 

SC/OA 

Sit  Pattern 

Access 

Device 

Drive 

mu 

iiiiamiii 

mill 

aaaassaassaassaasaaaaasassaaaaaas 

33223 

701 

100001 

inside 

Kepco  Power  Supply 

- 

705 

00101 

back  panel 

7245  P 1 ot ter /Pr int er *  plot  mode 

- 

706 

00101 

back  panel 

7245  Plotter/Printer,  print  mode 

- 

707 

0000111 

back  panel 

59301  ASCII  to  Parallel  Converter 

- 

709 

01001 

inside 

3495  Scanner 

- 

712 

001100 

back  panel 

Racal-Oana  Counter 

- 

718 

10010 

inside 

1350  Graphics  Translator 

- 

722 

0010110 

back  panel 

3455  Digital  Voltmeter 

- 

a 

- 

- 

9835M  Flexible  Disk  Drive,  master 

0 

8 

- 

- 

9885S  Flexible  Disc  Drive*  slave 

1 

9 

- 

- 

93035  Real  Time  Clock 

- 

2.0  Wiring  the  Interconnections 


AC  P0*ER:  Connect  AC  comer  cords  from  the  back  of  each 
instrument  to  the  power  strip.  Connect  the  corner  strips  together 
so  that  only  one  lino  runs  out  to  the  mall  outlet.  Plug  the  27V 
poteer  supply  into  the  duplex  pouier  outlet  on  the  front  panel  of  the 
vacuum  chamber. 

3U$  CONNECTIONS:  Plug  the  I/O  expander  card  into  one  of  the 
three  calculator  slots.  Cover  the  other  tuio  slots  uiith  plastic 
inserts*  if  possible.  plug  the  98022*  9903***  and  99035  cards  into 
any  of  the  I/O  expander  slots.  Connect  the  other  end  of  the  9S032 
to  the  master  disc  drive.  Lock  it  into  place  by  sliding  the  clip 
to  the  right.  Connect  the  master  disk  to  the  slave  disk  by 
attaching  the  special  mating  cable.  3oth  connectors  on  the  slave 
disk  are  identical*  so  either  one  can  be  used.  This  cable  also 
locks  into  place  at  each  end.  Connect  the  other  end  of  the  98034 
to  the  counter.  Noui  attach  the  other  instruments  listed  in  table 
I*  uiith  a  select  code  of  7,  to  the  bus  uiith  short  HP-13  cables.  3e 
aware  of  creating  bus  loops.  Do  not  connect  the  RP  pouier  meter  to 
the  bus. 

INSIDE  THE  CHAMBER:  Five  lines  must  be  connected  insida  the 
chamber.  The  1st  line  runs  from  a  37-pin  Deutsch  connector 
attached  to  the  chamber  bulkhead*  to  the  analog  thermometer  matrix 
receptacle  box  mounted  on  the  chamber  base  plate.  The  2nd  cable 
has  a  37-pin  Duetsch  bulkhead  connector  on  one  end*  and  divides 
into  tuio  separate  lines  at  the  other  end*  which  are  each  terminated 
by  Bendix  connectors.  These  terminals  are  attached  to  their  mates 
on  the  Cs  clock.  The  3rd  line  is  a  coaxial  cable.  It  runs  from  a 
bulkhead  BNC  connector  on  one  end,  to  the  SMA  RF  output  port  on  the 
Cs  clock  at  the  other  end.  The  4th  and  5th  leads  supply  pouier  to 
the  thermoelectric  device  (tcO).  Select  wire  sufficient  to  carry 
5A  without  heating.  These  two  wires  each  have  BNC  terminations  at 
one  end  for  connecting  to  the  bulkhead  feed-throughs*  and  are 
attached  at  the  other  end  to  a  9-pin  amphenol  female  connector, 
pins  2  and  4.  The  amphenol  connector  mates  with  a  male  connector 
wired  to  the  TED. 

OUTSIDE  THE  CHAM8SR:  The  5  lines  from  above  are  brought 
through  the  bulkhead  and  connected  to  appropriate  devices.  The  1st 
cable  is  about  15'  long,  has  a  37-Din  Deutsch  connector  at  one  end 
and  10  3-conductor  phone  plugs  at  the  other  end.  Attach  the 
Deutsch  connector  to  the  37-pin  port  which  feeds  through  to  the 
receptacle  box.  The  phone  plugs  at  the  other  end  of  the  cable  are 
numbered  0  through  9.  Each  of  them  mates  with  a  phone  jack  on  the 
back  of  the  thermometer  box.  The  2nd  cable  is  also  about  15'  long, 
has  a  37-pin  Deutsch  connector  at  one  end  and  a  37-pin  amphenol 
male  connector  at  the  other  end.  Attach  the  Deutsch  connector  to 
the  bulkhead  feed-through  port  that  mates  with  the  clock  cable  on 
the  inside.  Attach  the  other  end  to  the  37-pin  connector  on  the 
back  of  the  Cs  control  box.  The  3rd  cable*  a  segment  of  coax,  runs 


from  the  RF  feed-through  BNC  on  th*  chamber  bulkhead*  to  the  input 
3NC  on  the  back  of  the  Cs  control  box.  The  4th  and  5th  lines  have 
to  be  the  same  gauge  as  used  inside.  Run  them  from  the  appropriate 
BNC  feed-throughs  to  the  terminal  strip  pins  on  the  back  of  the 
Kepco  pouter  supply  labeled  GUT  and  COM. 

COUNTER  CONNECTIONS  and  SWITCH  SETTINGS:  The  counter  compares 
the  clock  under  test  with  the  in-house  reference  oscillator.  It 
does  this  by  measuring  the  time  interval  oetuieen  comparable  points 
on  the  two  waveforms.  By  analyzing  how  time  interval  changes  as  a 
function  of  time*  frequency  stability  can  be  determined.  First 
connect  a  coaxial  cable  from  one  of  the  three  Cs  control  box  BNC 
output  ports  to  the  BNC  connector  on  the  back  of  the  counter 
labeled  'A'.  Then  run  a  cable  from  room  204  containing  the  10.23 
MHz  reference  into  the  3NC  connector  labeled  'B'.  Set  the  gate 
select  switch  to  NORM.  All  other  connectors  should  be  left  blank, 
unless  an  external  reference  is  used. 

Cs  CONTROL  BOX  CONNECTIONS:  Not  all  of  the  connectors  on  the 
back  of  the  Cs  control  box  are  used.  See  figure  2.1  for  connector 
locations.  To  begin,  turn  on  the  27V  power  supply  and  adjust  the 
output  to  27V.  Turn  it  off,  and  connect  the  minus  side  to  ground. 
Connect  the  power  supply  terminals  to  the  Cs  control  box  with  2 
banana  plug  wires,  (♦)  to  red  and  (-)  to  black.  Connect  the  15'  Cs 
clock  cable  to  Jl.  Connect  the  special  scanner  cable,  which  has  a 
25-pin  amphenol  connector  at  one  end  and  25  lines  terminated  in  amp 
lugs  at  the  other  end,  to  J2.  See  SCANNER  CONNECTIONS  for 
instructions  in  wiring  that  cable  to  the  scanner.  Connect  J3  to 
the  MASQAT  system  in  room  204  using  the  special  cables  that  have 
been  run  for  that  purpose.  Leave  J4  and  J5  blank.  Feed  the  RF 
output  of  the  clock  into  the  BNC  labeled  'INPUT'  with  a  coaxial 
cable  that  runs  from  the  appropriate  feed-through  on  the  chamber 
bulkhead.  The  BNC's  labeled  'l'»  '2',  and  '3'  are  the  output 
terminals  of  a  power  splitter.  Send  one  up  to  channel  A  on  the 
back  of  the  counter,  one  to  the  MASOAT  system  in  room  204,  and  one 
to  the  power  sensor  attached  to  the  RF  power  meter.  The  buffered 
analog  output  and  remote  programming  connectors  are  not  used. 

CHAMBER  TEMPERATURE  CONTROLLER  CONNECTIONS:  The  temperature 
controller  works  by  producing  a  floating  voltage  equivalent  to  the 
voltage  a  type  J  thermocouple  would  develop  at  the  setpoint 
temperature.  This  voltage  is  compared  in  the  Honeywell  controller 
with  a  voltage  generated  by  the  base  plate  thermocouple.  The 
difference  is  used  to  select  heating  or  cooling  mode.  Connect  a 
short  lengtn  of  cable  terminated  by  two  50-pin  male  HP  connectors 
from  the  back  of  the  vacuum  chamber  temperature  controller  to  the 
Jl  connector  on  the  back  of  the  ASCII  to  Parallel  converter. 
Attach  a  cable  from  the  phone  jack  to  terminals  13  and  14  on  the 
back  of  the  Honeywell  controller.  The  canter  lead  of  the  phone 
plug,  corresponding  to  the  tip,  connects  to  terminal  14.  The 
middle  of  the  phone  plug  connects  to  terminal  13.  The  phono  plug 
ground  lead,  the  section  in  contact  with  tna  chasis,  is  not  used. 


RF  POWER  MET5R  CONNECTIONS  AND  SETTINGS:  An  HP  9481  Power 
Sensor  probe  must  be  connected  to  the  power  meter.  If  tne  Dower 
has  a  rear  terminal  sensor  input  for  this  probe*  us#  it. 
Otherwise*  connect  the  probe  to  the  front  panel.  The  end  of  the 
sensor  should  be  attached  to  one  of  the  three  RF  output  ports  on 
the  Cs  control  box.  Direct  the  recorder  output  on  the  back  of  the 
power  meter  to  scanner  channel  #26.  The  HP  bus  and  RF  blanking 
connections  are  not  used.  Set  the  front  panel  controls  to  d3m  mode 
and  100?  cal  function. 

ANALOG  THERMOMETER  MATRIX  CONNECTIONS:  The  analog  thermometer 
matrix  accepts  a  SCO  digit  from  the  ASCII  to  Parallel  converter, 
relays  the  leads  of  one  of  ten  input  thermistors  into  a 
thermometer,  and  sends  the  output  voltage  into  one  of  ten  lines  for 
recording  by  the  voltmeter.  Connect  the  plugs  numbered  0  through  9 
on  the  thermometer  cable  to  the  proper  phone  jacks  on  the  back  of 
the  t hermome t er  box.  Next,  connect  the  9-pin  amphanol  connector  on 
the  thermometer  to  connector  J2  on  the  ASCII  to  Parallel  converter. 
A  special  cable  has  bean  made  for  this  purpose.  Finally,  connect 
the  15-pin  amphanol  connector  on  the  thermometer  to  the  4th  scanner 
decade  with  another  special  cable  made  for  this  purpose.  The  end 
of  this  cable  contains  11  wires  terminated  in  amp  lugs.  Pin  #1  on 
tne  thermometer  connects  to  scanner  channel  #30,  pin  #2  to  31  ..., 
pin  #10  to  39.  Pin  #11  connects  to  the  common  low  on  the  scanner 
decade.  The  4th  scanner  decade  is  dedicated  to  temperature 
measurements. 

ASCII  TO  PARALLEL  CONVERTER  CONNECTIONS:  The  ASCII  to 
Parallel  box  is  dedicated  to  controlling  both  the  vacuum  chamber 
temperature  and  the  analog  thermometer  matrix.  The  1st  10  digits 
of  any  word  sent  to  the  ASCII  box  exit  connector  Jl.  The 
temperature  controller  uses  2  1/2  of  these  digits  plus  a  sign  bit. 
The  two  boxes  are  connected  together  by  a  50-wire  cable  terminated 
in  male  HP  connectors.  The  2nd  10  digits  sent  to  the  ASCII  box 
exit  connector  J2.  The  analog  thermometer  matrix  uses  1  digit. 
The  ASCII  box  and  thermometer  are  connected  together  by  a  special 
cable  that  has  a  50-pin  male  HP  connector  at  one  end,  anc  a  9-pin 
female  amphenol  connector  at  the  other  end. 

VOLTMETER  CONNECTIONS  and  SWITCH  SETTINGS:  There  are  5  banana 
plug  connectors  on  the  back  of  the  voltmeter.  The  2  on  the  left, 
under  the  4  wire  ohm  label,  are  not  used.  HI  connects  to  H  COM  on 
scanner  decade  *4.  LOW  connects  to  L  COM,  and  GUARD  connects  to  G 
COM.  Special  3-wire  cables  with  banana  plugs  at  one  end  and  amp 
lugs  at  the  other  end  have  been  constructed  for  this  purpose.  Set 
the  rear  panel  input  select  switch  to  REAR. 

SCANNER  CONNECTIONS:  The  scanner  accepts  40  analog  voltage 
signals  on  its  four  10-terminal  connector  cards;  and  channels 
these  signals  into  the  digital  voltmeter  under  calculator  control. 
An  example  of  an  unwired  scanner  terminal  card  is  shown  in  figure 
2.2.  Each  scanner  care  has  10  Hign,  10  Low  and  10  Ground 
connections.  In  addition  each  card  has  two  Common  High,  Common  Low 
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scanner  card  without  connections 
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scanner  card  with  connections 


Figure  2.3 


and  Common  Ground  output  connections.  The  terminals  are  numbered  0 
through  9.  The  carp  which  plugs  into  the  scanner  slot  farthest  to 
the  right  has  a  tan's  digit  of  0.  The  next  one  over  is  1»  the  one 
after  that  2*  and  the  last  card  3.  Therefore*  the  scanner  channels 
are  numbered  G  through  39.  When  the  calculator  selects  channel  12* 
for  example*  the  3rd  set  of  relays  on  the  2nd  decade  is  closed. 

The  1st  25  relays*  numbered  0 -2<*,  are  reserved  for  the  Cs 
clock  monitors.  A  special  cable  has  been  constructed  with  a  25-pin 
female  amphenol  connector  at  one  end*  and  25  wires  terminated  in 
amp  lugs  at  the  other  end.  The  amphenol  connector  plugs  into 
connector  J2  on  the  Cs  control  box.  The  25  amp  lugs  are  wired  to 
the  High  side  of  the  1st  25  channels  on  the  1st  2  1/2  scanner 
cards.  Pin  #1  connects  to  channel  0*  Din  *2  to  channel  1*  ...  pin 
*11  to  channel  10,  ...  pin  #25  to  channel  24.  The  Low  sides  of 
the  1st  25  channels  are  all  tied  together.  To  establish  continuity 
between  the  Low  coming  out  of  the  Cs  control  box  and  the  Low  on  the 
scanner  cards,  place  a  jumper  between  channel  12  High  and  channel 
12  Low.  Pin  #13  coming  out  of  the  Cs  control  box  is  analog  ground. 

The  last  10  relays*  numbered  30-39,  are  reserved  for 
temperature  measurements.  Channel  30  measures  the  temperature  of 
the  thermistor  plugged  into  jack  0  of  the  thermometer  receotacle 
box  located  inside  the  chamber.  Channel  31  measures  tne 
temperature  on  thermistor  #1,  ...  channel  39  measures  the 
temperature  on  thermistor  #9.  A  special  11-wire  cable  has  been 
made  for  the  purpose,  with  a  15-oin  female  amphenol  connector  at 
one  end  and  amp  lugs  at  the  other  end.  Pin  #1  connects  to  channel 
30,  pin  *2  connects  to  channel  31*  ...  pin  #10  to  channel  39.  All 
the  Lows  on  the  4th  decade  should  be  jumpered  together.  Do  not 
connect  the  Lows  on  channels  30-39  to  the  Lows  on  channels  C-24. 

The  remaining  5  channels*  25-29*  are  available  for  additional 
recordings.  The  following  devices  will  generally  be  connected: 
temperature  offset  from  pins  16  (low)  and  17  (high)  on  the  back  of 
the  Honeywell  controller  into  channel  25;  the  RP  power  meter 
recoraar  output  into  channel  26;  and  the  ionization  gauge  recorder 
output,  if  available,  into  channel  27. 

H  COM,  L  COM  and  G  COM  on  each  of  the  4  decades  should  be 
connected  together  as  shown  in  figure  2.3.  The  same  terminals  on 
the  4th  decade  must  be  connected  to  the  HI,  LOW  and  GUARD  inputs  on 
the  back  of  tne  voltmeter.  A  special  3-wire  cable  has  been  made 
for  this  purpose*  with  amp  lug  terminations  at  one  end  and  Danana 
plug  terminations  at  the  other  end.  The  names  and  functions  of 
each  of  the  channels  are  assigned  during  a  software  initialization 
routine. 


K6°CQ  POWER  SUPPLY  CONNECTIONS:  The  Kepco  power  supply  is  a 
bipolar  36V  w  12A,  HP-13  programmable  device.  It  is  used  to  drive 
current  through  the  t he r m oe 1 e c t r i c  device.  In  order  to  use  the 


PLOTTER/PR INT ER  SETTINGS;  Sat  the  dip  switch  on  the  rear  of 
the  plotter/printer  to;  ERROR  SEE>»  8  LPI,  8  BIT,  METRIC  and  9872. 

CONNECTIONS  TO  ROOM  204;  The  clock  RF  output  and  analog 
voltages  go  out  to  the  MASDAT  system  in  room  204.  A  10.23  MHz 
clock  r»1 artnca  signal  comes  in.  The  RF  output  signal  comes  out  of 
a  3NC  on  the  back  of  the  Cs  control  box.  The  analog  voltages  come 
from  connector  J3  on  the  Cs  control  box.  The  10.23  MHz  clock 
reference  signal  is  applied  to  channel  3  on  the  counter. 


’v'j 


BOP  REAR 


NOTE:  FRONT  SENSING  LINKS  MUST 
BE  REMOVED.  REAR  SENSING  LINKS 
MUST  BE  CONNECTED  AS  SHOWN. 

bipolar  operational  power 


Figure  2.4 


supply 


3.0  Instrument  Startup  and  Checkout 


Before  starting  a  test*  the  following  steps  should  be  taken  to 
insure  that  each  device  is  calibrated,  receiving  the  appropriate 
signals,  and  operating  properly. 

MOUNTING  Th£  ClOCK:  Bolt  the  bottom  of  the  clock  to  the  upper 
plate  of  tne  TEC.  Bolt  the  lower  plate  of  the  TED  to  the  base 
plate  of  the  chamber.  Connect  the  9-pin  male  amphenol  connector  on 
the  TED  to  its  mating  connector  inside  the  chamber.  Attach  the  RF 
output,  power,  and  analog  voltage  monitor  lines  to  the  3  ports  on 
the  front  of  the  clock. 

27V  POwER  SUPPLY:  The  AC  power  cord  should  be  plugged  into 
the  duplex  power  outlet  on  the  front  panel  of  the  chamber.  If  the 
foreline  pressure  is  low  enough,  duplex  cower  will  come  on  when  the 
push-button  next  to  the  outlet  is  pressed.  If  duplex  power  will 
not  come  on,  plug  the  AC  power  cord  temporarily  into  a  wall  outlet. 
Disconnect  the  banana  plugs  from  the  power  supply  and  ♦  u  r  n  it  an. 
Adjust  the  output  to  27V.  Turn  the  p  owe'’  supply  o*f.  Reconnect 
the  banana  plugs  and  return  t  ho  AC  cower  cord  *  o  the  duplex  power 
outlet.  Set  tne  red  trie-point  need*  on  the  forelina  pressure 
gauge  to  100  millitorr. 

Cs  CONTROL  20X:  Check  for  proper  connections  from  the  back  of 
the  Cs  control  oox  to  the  clock*  counter,  Rc  power  meter,  and 
MASCAT  system.  Turn  the  27V  power  supply  on.  Refer  to  the 
manuf ac t ur a r-supp 1 ied  documentation  tor  starting  the  clock.  The 
procedure  varies  from  manufacturer  to  manufacturer,  and  from  model 
to  model.  Check  the  voltage  monitors  to  see  whether  they  are 
within  manuf acturer-speci f ied  limits.  Before  roughing  the  vacuum 
system,  be  sure  to  disconnect  power  from  the  clock. 

COUNTER  CHECKOUT :  With  the  clock  powered  up,  check  the 
frequency  on  channel  A  by  setting  the  appropriate  counter  keyboard 
switches  to  NORM  and  SEP,  and  Dressing  the  key  labeled  'FA'.  If 
the  display  does  not  show  the  correct  clock  freauency,  something  is 
wrong.  Check  the  signal  coming  over  the  in-nouse  reference 
standard  in  room  204  by  temporarily  switching  that  cable  from 
channel  B  into  channel  A.  Display  the  frequency  by  pressing  e  A . 
The  two  signals  should  have  the  same  frequency.  Return  the  clock 
signal  to  channel  A  and  the  reference  signal  to  channel  5. 

REAL  TIME  CLOCK  CHECKOUT:  To  load  the  correct  time  into  the 
Real  Time  Clock  enter: 

wrt  9,  "SMM,dC,hh,mm,sS"  <execute> 


where  *  M  ,  rj  Q  ...  S  S  are  the  month,  day,  hour,  minute  and  second. 
To  read  the  clock  enter: 


dim  T1C141 


<  execu  te> 
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•  V  ....  -■ 
----- 


wr  t  9  *  "RM 
red  9»  T$ 
dsp  T $ 


(execute) 

(execute) 

<9X9Cut9> 


If  the  calculator  hangs  up  while  reading  the  clock*  check  the 
connection  of  the  clock  to  the  I/O  expander  box.  Wait  a  few 
minutes  and  try  again.  If  the  problem  persists*  replace  the  clock 
card  with  a  new  one. 

CHAMBER  TEMPERATURE  CONTROLLER  and  HONEYWELL  CONTROLLER, 
CALIBRATION  and  CHECKOUT:  Before  doing  anything  in  this  section, 
turn  the  chamber  Thermal  Control  off  (push-button  on  the  front 
panel  of  the  chamber).  To  calibrate  the  chamber  temperature 
controller*  remove  the  top  cover  and  locate  the  trim  pot. 
Disconnect  the  plone  plug  from  the  phone  jack  on  the  rear  of  the 
box*  and  put  an  empty  phone  plug*  with  plastic  cover  removed*  back 
in  its  place.  Connect  a  coaxial  cable  with  aligator  clip  leads 
fro*  the  digital  voltmeter  to  the  two  terminals  of  the  phone  plug 
as  shown  in  figure  3.1.  Set  the  voltmeter  for  front  panel 
operation. 


Figure  3.1: 


phone  plug 


(— )  terminal 


(+)  terminal 


Turn  the  temperature  controller  on.  The  largest  number  the  D/A 
converter  in  the  controller  can  accept  is  1111111111  binary,  or  3FF 
hexadecimal.  Dn  the  calculator  enter: 

wrt  707*  "♦COO"  (execute) 

This  should  produce  an  output  of  0.000  mV.  Next  enter: 

wrt  707,  "+3FF"  (execute) 

Adjust  the  trim  pot  until  the  output  is  8.000  mV.  As  a  quick  check 
that  everything  is  working,  enter: 

wrt  707*  M-3FF"  (execute) 

Now  the  output  should  be  -8.000  mV.  Reconnect  the  phone  plug  and 
replace  the  cover. 


Loosen  the  case  lock  screw  on  the  Hone/well  controller  and 
slide  the  sox  out  far  enough  to  reach  the  LCCAL/R=MCTE  switch. 
Place  the  Honeywell  in  LOCAL  mode.  with  the  chamber  Thermal 
Control  still  off*  turn  the  dial  clockwise  and  counterclockwise* 
and  watch  the  red  alarm  light  come  on  and  off.  The  red  light  comes 

on  whenever  the  chamber  temperature  is  outside  a  narrow  setpoint 

temperature  range.  Adjust  t*e  HI  and  LOW  alarm  screws  on  the  side 

of  the  Honeywell  until  the  red  light  comes  on  at  the  *2  and  -2 

percent  deviation  points  Cone  tic  mark  off  center  on  the  controller 
dial).  Place  the  honeywell  controller  in  remote.  Push  the  case 
back  in  and  tighten  the  case  lock  screw.  Cn  the  calculator  enter: 

wrt  707,  "4.3PF"  <execute> 

The  red  temperature  offset  indicator  needle  on  the  Honeywell 
controller  should  peg  to  the  left.  Then  enter: 

wrt707*"-3rF"  <execute> 

which  should  make  the  needle  peg  to  the  right.  If  this  does  not 
happen,  check  the  connection  from  the  temperature  controller  to  the 
Honeywell  controller.  Before  a  test  is  run,  turn  the  chamber 
Thermal  Control  on. 

SCANNER  and  VOLTMETER  CHECKOUT:  Before  starting  this  section, 

check  tne  wiring  and  set  the  rear  panel  input  selector  switch  on 
tne  voltmeter  to  REAR. 

1)  Cs  CONTROL  BOX  signals  -  turn  the  clock  on.  On  the 
calculator  enter: 

mrt  709,  "COOS"  <execute> 

This  command  opens  all  scanner  channels  and  closes 
channel  0.  Verify  that  channel  0  displays  a  value 
appropriate  for  Supply  V.  Now  enter: 

wrt  7  C  9 ,  nC01E"  <execute> 

to  close  channel  1.  Verify  that  channel  1  displays  a 
value  appropriate  for  Supply  I.  Continue  this  procedure 
for  all  10-12  channels  in  use.  It  may  be  helpful  to 
obtain  a  orinter  listing  of  the  INIT  file  as  an  aid  to 
the  identif ication  of  each  of  the  charnels. 

2)  HONcY'WELL  CONTROLLER  signal  -  the  deviation  recorder 
output  of  the  Honeywell  controller  is  connected  to 
channel  25.  The  output  signal  is  a  ♦/-  IV  dc  signal 
proportional  to  deviation  from  setpoint.  Enter: 

wrt  703,  **  C  2  5  5  "  <execute> 

and  check  the  output  by  turning  the  Honeywell  dial  to 
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deflect  the  error  needle 


3)  RF  POWER  MgTER  signal  -  the  recorder  output  on  the  power 
meter  is  connected  to  channel  26  cf  the  scanner.  The 
output  signal  is  ♦l.OOOV  dc  full  scale  for  the  range 
selected.  With  the  clock  on,  enter: 

w  r  t  7  0  9 ,  "  C  2  6  E  "  <execute> 

and  verify  that  the  output  pouier  is  in  the  appropriate 
range  . 

A  )  IONIZATION  GAUGE  signal  -  if  the  ionization  gauge  on  the 
vacuum  chamber  control  panel  has  a  recorder  output,  it 
should  be  connected  to  channel  27.  Output  is  ♦2V  full 
scale.  Logarithmic  changes  in  pressure  produce  linear 
changes  in  voltage.  To  test  the  output  of  the  gauge,  the 
chamber  must  be  pumped  douin,  and  the  ion  tube  turned  on. 
Enter : 


art  709,  '*  C  2  7  E  H  (execute) 

and  check  the  output  voltage. 

5)  ANALOG  THERMOMETER  MATRIX  signals  -  Before  proceeding 
with  this  section,  turn  the  Thermal  Control,  on  the 
chamber  control  panel,  off.  The  analog  tnermometer 
expects  to  receive  a  non-complemented  SCO  character  from 
0  to  9.  The  ASCII  to  Parallel  box  is  output-formatted  to 
generate  complementary  hexadecimal.  To  write  a  0  to  the 
thermometer,  an  'F'  must  be  sent  to  the  ASCII  box  in 
column  11.  To  write  a  1,  an  'E*  must  be  sent,  and  so  on. 
To  write  a  9,  the  character  '6'  must  be  sent.  The 
transforming  function  is:  hex(15  -  tne  channel  * 

desired).  If  a  thermometer  jack  is  left  empty,  and  that 
channel  is  selected,  an  output  voltage  of  -.51  mV  will  be 
displayed.  Otherwise,  the  displayed  voltage  should  equal 
the  temperature  at  the  thermistor  divided  by  100.  To 
check  thermistor  0,  enter  on  the  calculator: 

wrt  707,  "FQOOQOOOOOO"  <execute> 

wrt709,  WC3QE"  <execute> 

The  first  line  selects  thermistor  0,  and  the  second  line 
cnannels  the  output  voltage  of  the  thermometer  into  the 
voltmeter.  To  check  thermistor  1,  enter: 

wrt  707,  w E0 0 0 0 0 0 0 0 0 0 ”  <execute> 

wrt  709,  "C31E"  <execute> 

and  so  on,  decrementing  the  1st  character  in  the  wrt  707 
statement,  and  incrementing  the  3rd  digit  in  the  wrt  709 
statement,  with  each  increment  in  channel  numoer.  To 


check  tne  last  thermistor,  »nt»r! 

art  7  0  7,  "60C0000GQ00"  <execute> 

wrt7Q9,  "C39E"  <execute> 

'With  each  channel  selected*  check  the  appropriateness  of 
the  number  displayed  on  the  voltmeter. 


KSPCO  BIPOLAR  POWER  SUPPLY  and  THERMOELECTRIC  DEVICE  CHECKOUT: 
Words  written  to  the  Kepco  pouier  supply  are  6  characters  long, 
formatted  as  follows:  CMMMLL*  inhere  C  is  a  mode  command  from  0  to 
7*  MMM  is  the  output  select*  and  LL  is  a  limit.  Tne  system  uses 
the  Kepco  in  High  Current  mode  whicn  provides  ♦/-  12  A  full  scale. 
The  command  for  positive  polarity  is  C*4,  and  for  negative 
polarity*  C*5.  MMM  ranges  from  000  to  999.  000  corresponds  to  0 

Amps  output*  939  corresponds  to  12  Amps  output.  Each  increment  of 
083  to  MMM  adds  1  A  of  output  current.  In  current  mode  the  device 
is  voltage  limited.  The  system  prevents  the  current  from  going 
above  4  Amps.  But  as  a  safety  precaution*  the  device  is  voltage 
limited  to  a  value  corresponding  to  about  5  Amps.  LL  ranges  from 
0*  whicn  corresponds  to  0  V,  to  99*  which  corresponds  to  36  V.  LL 
is  always  set  to  60  (about  22  V). 

Check  the  wiring  to  the  TED  and  enter: 

wrt  701*  "416660”  (execute) 

The  output  should  indicate  ♦2  Amps.  With  this  polarity,  the  upper 
plate  of  the  TED  should  heat.  If,  instead,  it  cools,  turn  the 
Kepco  off  and  interchange  the  lead  wires  attached  to  the  outside 
ports  on  the  chamber  bulkhead.  Turn  the  Kepco  back  on  and  repeat 
the  process.  To  cool  the  TED*  enter: 

wrt  701*  ”516660"  (execute) 

Never  send  more  than  4  Amps  current  to  the  TED  (MHM=333). 
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4.0  Hardware  Conf iguration 


The  Thermal  Vacuum  Test  facility  is  a  calculator-contr oiled * 
automatic  data  collection  system  capable  of  controlling  the  thermal 
environment  uiithin  a  vacuum  chamber.  The  calculator  communicates 
directly  with  a  peripneral  I/O  expander  as  shown  in  figure  4.1. 
The  I/C  expander  controls  3  buses*  each  with  a  unique  select  code. 
The  general  purpose  interface  bus  CGPIS)*  to  which  most  of  the 
instruments  are  connected*  is  assigned  a  select  code  of  7.  The  two 
disk  drives  are  on  a  separate  bus  with  a  select  code  of  3.  The 
real  time  clock  occupies  another  bus  slot*  with  a  select  coae  of  9. 
Instruments  on  the  GPI9  are  assigned  a  uniaue  device  address  from 
0-31.  The  system  operates  according  to  a  multiple  inetrrupt 
scheme.  Data  collection  has  the  highest  priority.  TEC  control  has 
the  next  highest  priority.  On-line  data  reduction  programs  have 
the  lowest  priority. 

Temperature  is  controlled*  both  at  the  level  of  the  chamber 
base  plate*  and  at  the  level  of  the  TED.  The  chamber  temperature 
controller  programs  the  Honeywell  controller  to  set  the  base  plate 
temperature  to  whatever  value  is  desired.  Oscillations  in  base 
plate  range  from  3-10  degrees  C»  depending  on  the  setpoint 
temperature  chosen.  The  Kepco  power  supply  fine-tunes  the 
temperature  to  within  3  tenths  of  a  degree  C,  eliminating  the 
effect  of  base  plate  error.  The  TED  can  support  a  temperature 
gradient  of  15  degrees  C. 


aulitar 


5.0  Software  Configuration 


There  are  two  programs  a  user  should  be  familiar  with.  The 
first  is  INIT,  a  program  that  edits  initialization  files  containing 
temperature  control*  scanner  control*  and  measurement  interval 
data.  INIT  is  stored  on  the  system  disk,  loaded  in  drive  0.  To 
run  INIT  ,  en  ter  : 

drive  0  <execute> 
get  "INIT"  <execute> 

<run> 

A  flow  diagram  showing  the  questions  prompted  by  INIT  is  shown 
in  figure  5.1.  INIT,  like  many  programs  in  the  system,  requests  a 
binary  cassette  tape  labeled  the  'Softcopy  Graphics  Liorary'.  This 
tape  contains  programs  for  facilitating  output  to  the  graphics 
translator.  Insert  the  tape  into  the  cassette  drive  and  press 
<cont>. 

Two  data  files  are  maintained  by  the  system.  They  are: 
INIT . D  and  I  MIT . V .  The  1st  is  a  default  initialization  file 
containing  standard  settings  as  shown  in  figure  5.2.  INIT.D  can  be 
edited,  if  necessary,  out  it  would  be  wise  not  to  change  it.  The 
other  file,  I.NIT.V,  is  a  variable  initialization  file  for  tests 
which  require  non-default  conditions.  INIT.V  should  be  updated 
each  time  the  requirements  of  a  test  change. 

To  edit  one  of  the  in i t i al i z a t i on  files*  enter  'I'  to  the 
prompt,  'Initialize,  List,  Gather,  or  End'.  Plow  is  directed 
through  3  program  segments  as  shown  in  figure  5.1:  temperature 
control,  scanner  control,  and  measurement  interval.  Prompts  should 
be  answered  with  Y  E-5  or  NC  unless  otherwise  stated.  Entering  'Y'» 
for  example,  to  the  prompt  'delete  temperature  setpoints'  will 
enter  the  user  into  a  subroutine  that  allows  for  selective  deletion 
of  temperature  setpoints. 

To  list  the  contents  of  an  initialization  file,  enter  'L'  to 
the  prompt,  'Initialize,  List,  Gather,  or  End'.  The  program  will 
prompt  for  screen  or  printer.  Enter  'S'  for  screen  only  if  the 
graphics  translator  and  display  are  on  the  system  Crack  *23. 

Entering  'G'  to  'Initialize,  List,  Gather,  or  End'  will  call 
the  program  GATHER  into  calculator  memory,  and  start  its  execution. 
Entering  ' E '  will  end  INIT. 

GATHER  is  the  system's  data  collection  program.  It  resides  in 
calculator  memory  whenever  a  test  is  running.  GATHER  can  be 
requested  in  INIT,  or  it  can  be  run  oy  entering: 

drive  0  <execute> 
get  "GATHER"  <execute> 


20 


Thermal  Vacuum  Test  Facility 


Program:  IN1T 

Yritten:  12_17_80 

For:  Space  Applications  Branch 

US  Naval  Research  Lab 

Revision  Date:  07~28“83 

Measurement  Interval:  0d  lh  0m  0s 
Counter  Gate  Time:  100  msec 

****  Temperature  Control  **** 

****  Scanner  Control  **** 

Temperature 
(deg  0 

25 


Duration 

Channel 

Channel 

Channel 

Days  Hrs  Mins  Secs 

n 

Number 

Name 

Function 

HH  *1*  tiff  Hit 

a 

HHii 

HiiH 

HHiiH 

30  0  0  0i 

1 

0 

Supply  I 

DC  V 

2 

1 

Supply  Y 

DC  V 

3 

2 

Ionizer 

DC  V 

4 

3 

Freg  Mult 

OCV 

5 

4 

Qtz  Oven 

DC  V 

6 

5 

Ion  Pump 

DC.  V 

,  7 

6 

Cs  Oven 

DC  V 

8 

7 

Beam  I 

DC  V 

9 

8 

C  Field 

OCV 

10 

9 

Control 

OCV 

11 

10 

EM 

OCY 

12 

12 

Ground 

OCV 

13 

25 

Tmp  Offset 

OCY 

14 

26 

RF  Power 

OCY 

15 

27 

Vacuum 

OCV 

16 

30 

TED  Temp 

DC  V 

17 

31 

BP  Temp 

DC  Y 

INIT.D  default  initialization  file 


Figur*  5.2 


<  r  u  n  > 


A  f  1  o  u  diagram  for  G  A  T  H  ~  ?  is  shown  in  figure  5.2.  G  A  T  -  H  ? 
requests  t  n  a  Softcooy  3rao^ics  Lisrar/  t  a  o  e  ,  as'<s  for  *  ~  a 
initialization  file  to  use.  W  n  e  n  t  h  3  calculator  prompts  for  3  ♦as* 
start  gate,  entering  <cont>  will  cause  tKe  current  cate  an  j  t  i ■>» a  to 
be  loaded.  in  and  date  must  be  soecified. 


The  POWER  PAIL 
the  cassette  drive 
two  files.  The  1st 


TAPE  is  a  specie 
whenever  a  test 
is  a  prog  ram 


cassette  tape  t • 
is  running.  The 
file  containing 


at  n 
tape 
the 


R  E  3  G  0  T  .  Tne  second  is  a  short  d3ta  file.  Wnenevar  cower 
on,  the  calculator  attempts  to  load  and  run  a  orogram  from 
of  tne  cassette  tape.  When  R  E  3  C  0  T  is  loaded  after  3  power 
it  resets  all  of  tne  devices  in  tne  system,  restarts  tne 
cycles,  and  loads  in  tne  memory  file  M  E  M  0  R  Y  .  M  E  0  R  Y  co 

133  SSV 

ic  t  ed  .  To 
tne  casse 


exact  image  of 

calculator 

memory  at 

t  h 

a  time  it 

memory  file 

i  s 

r  3  5  a  v  e  d 

eacn  time 

data  is  cell 

p Z W E R  FAIL  TAP 

~ * 

load  a  blank  casse 

1 1  e 

tape  into 

and  enter: 

ar  t 

3 

<execute> 

raw 

<execute> 

mr  k 

1  , 

2  2  0) 

<execute> 

mrk 

1  . 

100 

<execute> 

drive 

0 

<execute> 

gat 

"R 

=  3  C  C  T 

<execute> 

ref 

0 

(execute) 

re  sure  to  label 

the  tape 

,  'POWER  c 

AIL 

0 

• 

e  t  3 
c  0 
c 

i  s 

f 

f  s 

1  n  t 
n  t  3 
e  C  . 

c  r 
♦  ♦ 


n  t  a  i  n  3 
r  0  g  r  am 
turned 
lie  2 
i  1  ure  , 

e  r  r  J  P  t 
ins  an 
The 
e  a  t  e  a 
drive 


After  loading  the  POWER  PAIL  TAPE,  the  calculator  reaues+s  a 
data  file  name.  File  names  are  5  cnaractars  cr  1333.  a  very 
common  error  is  to  attempt  opening  a  file  for  which  there  is  no+ 
enough  disk  space.  If  this  operation  produces  'e^ror  2 5* 
(insufficient  storage  space  on  disk),  correct  it  by  killing 
unnecessary  data  files,  going  to  a  new  data  disk,  or  shortening  tK? 
time  interval  of  the  test  so  that  not  as  much  data  is  collected. 
Once  GATHER  is  successfully  running  it  oisoleys,  'select  special 
function  key  C  *  *  *  9 2  '  where  »**«  is  the  number  of  measurement  cycles 
remaining. 

Figure  5.4  shows  how  the  system  programs  interact.  The  small 
boos  denote  data  files  and  subroutines.  Information  flow  is 
indicated  by  the  arrows.  An  arrow  to  a  *ila,  such  as  INIT.V, 
indicates  that  a  program  writes  to  that  file.  An  arrow  away  from  a 
file,  sucn  as  KEYS,  indicates  that  the  file  is  read  from.  There 
are  three  ways  of  entering  the  system:  1)  ♦  h  r  o  u  g  h  I MIT,  2)  tnrough 
GATHER,  and  3)  through  3  power  fail. 

Gather  controls  twelve  subroutines.  Sue  routines  are  swapped 
in  and  out  of  calculator  memory  at  user  request.  The  subroutines 
perform  data  handling  routines  wnile  oats  is  still  oeing  collected. 


I 
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■'-*  '-*■  ~-f- 


insert  softcopy  graphics  tape 
|  insert  tape 

variable  or  default  I NTT  file 
|  tV.D] 

start  teat:  HMDDHHWSS 
1  enter  date  or  <cont> 
end  test:  MMDDHHKHSS 
|  enter  date 
current  year:  TT 
enter  year 

Insert  POWER  FAIL  TAPE 
insert  tape 
file  where  data  is  to  be  stored 
^  enter  file  name 
select  program  key  [tttt] 


1 


GA  i  HER  flow  diagram 


software  configuration 


Thermal  Vacuum  Test  Facility 


3  y  convention,  the  names  of  the  subroutines  on  the  disk  3ll  begin 
uiith  a  aecimai  point.  They  do  not  run  in  stand-alone  mode  p  e  c  a  u  s  e 
they  lack  variacle  and  device  declaration  statements.  They  operate 
only  wren  G  A  T  H  E  ?  is  running.  To  execute  a  suoroutina  during  a 
test,  press  the  special  function  <  e  y  associated  w i t h  that  function. 
Soma  subroutines  require  additional  user  information.  This  is  also 
entered  by  pressing  special  function  keys.  See  tKe  section  on 
'Obtaining  data  during  a  test'  for  more  intor-nation  regarding 
suoroutina  s. 

GATHER  operates  two  programmed  interrup*s.  Tie  1st  is  a 
variable  duration  interrupt  union  controls  the  interval  oetaeen 
measurement  cycles.  The  2nd  interrupt  is  fixed  at  3  sec  ones,  anc 
controls  the  TEG.  It  has  a  lower  priority  than  the  1st.  It  is 
oossiole  to  oosarve  the  effect  o  *  the  interrupts  by  observing  the 
digital  voltmeter  display. 

All  t  n  e  remaining  programs  in  the  system  operate  incependently 
of  GATHE?.  They  may  be  loaded  into  the  calculator  when  a  test  is 
through.  Section  9  contains  program  descriptions  and  sample 
outputs. 

All  programs  that  output  data  to  tKe  olot  ter/pri^ter  or 
grapnics  Jisplay  terminal  h a  v  a  names  that  are  formatted  in  the 
fcllouing  manner:  . N N  N I C ,  where  the  decimal  point  is  present  only 
if  the  *  i  1  e  is  a  subroutine,  f,  V-j  is  is  a  o-character  mneumonic,  and 
GJ  is  the  device  address  of  tne  output  terminal. 
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3  T  9  S  t 


To  run  a  clock  tost*  follow  the  sequence  of  steps  listed  o  e  1  o  w  : 


appropriate 
and  working 


devices  si 
correctly 


in  t  he 
(refer  to 


codas 


interconnected 


door  . 


1  a  ad  s 


box  . 
TED. 


Verify  t  r>  a  t  all  tne  epcrosriats  devices  sra  in  t  h  a 
systa'i'i  powered  on,  and  working  corractly  (refer  to 
sactions  1  ana  2). 

Verify  tnat  the  orocar  device  addresses  ana  select  codas 
neve  been  sat  (section  1). 

Verify  that  the  devices  ara  properly  i.ntarconnectad 
(section  2). 

Vent  the  vacuum  chamber  and  open  the  front  door. 

5 o 1 1  the  clock  to  the  T  =  D . 

colt  tne  TED  to  the  chamber  base  Plate. 

Connect  the  power,  analog  monitor,  and  S  c  leads  to  the 
clock. 

Connect  power  lines  to  the  TED. 

Connect  the  cable  to  the  tnermistor  Drobe  receptacle  box. 
Plug  a  thermistor  into  jack  3  3nd  mount  it  to  tne  T  =  D . 
This  thermistor  MUST  be  in  pl3ce. 

Plug  a  tnermistor  into  jack  1  and  mount  it  to  the  chamber 
base  plate.  This  thermistor  mj$t  p  ?  in  place  as  well. 
plug  additional  thermistors  into  Tne  remaining  jacks  as 
necessary,  oeing  sure  to  record  where  they  are  placed  so 
that  the  INIT  *  1 1 3  can  be  edited  properly. 

Close  the  chamber  door  ana  start  the  vacuum  system, 
when  the  pressure  is  below  ICO  millitorr,  turn  duplex 
power  on. 

Start  the  clock  and  verify  that  it  is  working.  Check  the 
counter  frequency  reading  and  the  analog  monitors 
(section  3). 

Check  the  reference  signal  coming  in  from  room  204. 

Placa  a  system  disk  in  drive  0. 

Place  a  data  storage  gis<  in  drive  1. 

Locate  a  Softcopy  Graphics  Tape  and  0 D W E R  p  A  I L  TAPE. 

Setup  the  initialization  file  by  running  INIT  (section 

5)  . 

?un  G  A  T  *  E  3  . 


osss 

Plug 


proper  1 y . 

the  vacuum  system, 
millitorr,  turn 


turn  duplex 


PAIL  TAPE. 

INIT  (section 


7.0  Obtaining  Data  During  a  Test 


Before  producing  lists  or  clots  on  the  plot  ter/printer,  see  if 
the  print  Head  is  at  the  top  of  the  page*  and  check  tne  page 
boundaries.  Seolace  the  paoar  if  tne  margin  is  colored  red.  Check 
the  calculator  printer  from  tine  to  time*  and  replace  the  paper  i * 
it  is  loui.  A  calculator  printer  error  (eg*  printer  out  ot  paper) 
will  halt  program  execution. 

Table  II  shows  the  subroutines  called  in  when  the  twelve 
special  function  keys  are  pressed.  Additional  subroutines  can  be 
requested  before  the  last  one  has  finished  running.  Three 
subroutines  require  user  input:  .  5 1 0  0  5  »  . ?  L  3 1 3  «  and  . S  C  A  0 6 . 
Instructions  for  these  are  printed  on  the  calculator  printer  during 
execution.  They  reauire  the  selection  of  additional  special 
function  keys. 


Table  II!  Suoroutines 


i  $ 

ftftftftftftftft  4 

44  4444444444444  ft 444444 4444 444444444444 4*4 4 4 

ftft 

* 

special 

ft 

ft 

ft 

function 

subroutine 

output 

ft 

* 

k  ay 

nan  t 

device 

description 

ft 

4 

>3X25331 

S33S2SSSSS 

3  3  3  3  S  3 

3S33333333S333333X33S333SS3SX333333X333S 

ft 

ft 

fO 

. INI  18 

713 

Lists  the  contents  of  the  INIT  file  on 

4 

ft 

the  display  terminal. 

ft 

ft 

fl 

• INT 1 9 

719 

Plots  time  interval  average  measurements 

ft 

ft 

as  a  function  of  time  on  the  disolay 

ft 

ft 

t  er minal . 

ft 

ft 

f  2 

•  CF  B 1  3 

713 

Plots  fractional  frequency  offset  as  a 

ft 

4 

function  of  time  on  the  display  terminal. 

4 

ft 

f  3 

.SIG18 

713 

Plots  Allan  Variance  as  a  function  of 

ft 

4 

averaging  time  on  the  display  terminal. 

ft 

ft 

The  values  of  the  plotted  points  are 

ft 

4 

printed  on  the  calculator  printer. 

ft 

ft 

f  4 

• ®L0 1 3 

713 

Plots  scanner  channel  data  as  a  function 

ft 

ft 

of  time  on  the  display  terminal.  This 

ft 

4 

subroutine  requires  selection  of  a 

ft 

4 

channel  number.  A  channel  number  and 

ft 

ft 

name  are  displayed  on  the  calculator. 

ft 

4 

Special  function  key  fO  increments  the 

ft 

ft 

count,  fl  decrements  the  count,  and  f2 

ft 

ft 

plots  the  displayed  channel. 

ft 

4 

f  5 

. CUI16 

16 

Produces  a  calculator  printer  listing  of 

ft 

ft 

key  status  variables. 

ft 

ft 

f  6 

. INI05 

705 

Lists  the  contents  of  the  INIT  file  on 

ft 

4 

the  plotter/printer. 

ft 

ft 

f  7 

. INTOS 

705 

Plots  time  interval  average  measurements 

ft 

ft 

as  a  function  of  time  on  the 

ft 

ft 

plotter/printer. 

ft 

4 

f  8 

. OF  FO  5 

70S 

Plots  fractional  frequency  offset  as  a 

ft 

ft 

function  of  time  on  the  p lot t er /print er . 

ft 

4 

f  9 

.SIGOS 

705 

Plots  Allan  Variance  as  a  function  of 

ft 

ft 

averaging  time  on  the  plotter/printer. 

ft 

ft 

The  values  of  the  plotted  points  are 

ft 

ft 

printed  on  the  calculator  printer. 

ft 

4 

flO 

.PL005 

705 

Plots  scanner  channel  data  as  a  function 

ft 

4 

of  time  on  the  p 1 ot ter/prin t er .  This 

ft 

4 

subroutine  requires  selection  of  a 

ft 

4 

channel  number.  A  channel  number  and 

ft 

ft 

name  are  displayed  on  the  calculator. 

ft 

ft 

Special  function  key  fO  increments  the 

ft 

ft 

count,  fl  decrements  the  count,  and  f2 

ft 

ft 

plots  the  displayed  channel. 

ft 

ft 

f  11 

. SCA06 

706 

Produces  a  p 1 o t t e r/pr in t er  listing  of 

ft 

4 

data  collected  through  the  scanner.  This 

ft 

ft 

subroutine  requires  an  additional  entry. 

ft 

ft 

Press  special  function  key  fO  to  list  all 

ft 

ft 

the  data,  and  fl  to  list  data  collected 

4 

ft 

ft 

since  midnight. 

ft 

ft 

If  th#  calculator  error  nalts  for  any  raason  while  a 
subroutine  is  executing,  turn  tha  calculator  off  and  back  on,  or 
anttr! 

Ido  <axacuta> 

This  aill  load  in  tha  REBOOT  program,  and  program  execution  will 
pick  up  where  it  laft  off. 

If  an  arror  halts  tha  program,  and  the  program  is  simply 
restarted  in  tha  wait  loop,  the  interrupts  will  no  longer  be 
functional  and  GATHER  will  not  collect  data. 


3.0  Obtaining  Data  Once  a  Test  is  Through 

This  section  describes  the  various  forns  of  hard  cocy  that  can  be 
obtained  using  system  programs.  Each  olock  contains  the  program 
file  name*  the  required  inputs*  a  description  of  the  program,  and 
the  name  of  the  display  terminal  version,  if  one  exists. 


or ogr a*: 
input  : 

scrttn  vtrtion: 
description: 


INIT 

default  or  variabla  file,  list,  printar 
sama 

lists  the  contents  of  either  the  INIT.b  or  INIT.V  files 


Precision  Oscillator  lest  Facility 

Program:  INIT 

Revision  Date: 

01-11-80 

Iritten:  12*17*88 

Measurement  Interval:  8d 

lh  80m  0s 

For:  Space  Applications  Branch 

Counter  Gate  Time:  108 

msec 

US  Naval  Research  Lab 

****  Temperature  Control  **** 

♦***  Scanner  Control  **** 

Temperature  Duration 

Channel 

Channel 

Channel 

f#  (deg  0  Days  Hrs  Hms  Secs 

tt  tttttHHH  tt*t  ttt  HH  Htt 

M 

Number 

Name 

Function 

t* 

tttttt 

tttttt 

tttttttt 

1  25  1  8  8  0 

1 

0 

Control 

OC  V 

2 

1 

Beam  I 

OC  V 

3 

2 

C  Field 

OC  V 

4 

3 

Ionizer 

OC  V 

5 

4 

Cs  Oven 

DC  V 

6 

5 

Ion  Pump 

OC  V 

7 

6 

Qtz  Oven 

DC  V 

8 

7 

EM 

OC  V 

9 

8 

DV  Voltage 

DC  V 

10 

9 

OC  Current 

DC  V 

11 

10 

RF  Power 

DC  V 

12 

11 

Tmp  Offset 

DC  V 

■ 

13 

12 

Vacuum 

DC  V 

14 

13 

Temp 

DC  V 

$ 


£ 


pr  agr  a* : 
input: 

scrttn  version: 
description: 


SC  106 

data  file  name,  start  date,  additional  columns 

sens 

lists  the  contents  of  tast  data  filas  from  the  specified 
start  date.  Additional  columns  can  be  generated  from  those 
which  already  exist,  as  for  example. 

POUES  *  SUPPLY  V  x  SUPPLY  I. 


•  % 

[>: 


*«•«•  Precision  Oscillator  Test  Facility 


a 

*  Start  Date  of  rest* 

*  Signal  Frequency! 

*  Gate  Time* 

»  Number  of  Points* 

*  Measurement  Interval* 
■  Data  File  Name* 

*  Program* 


12-19-83  * 
10. *3  MHz  « 
100  msec  * 
48  « 
1800  secs  « 
K5#1QA  » 
SCA06  * 

WMMHMHS****** 


Oate  Time 

Phase 

Supply  1 

Supply  V 

1  ant zer 

trash 

Qtz  Ovn 

«*•»««•>* 

mHHMill 

miHiHi 

12-19  16 ■ 0  0  >  28 

2.5390E-08 

1.315 

2.563 

1.136 

1.261 

0.767 

12-19  16t30t28 

8.6680E-08 

1.314 

2. 563 

1.136 

1.282 

0.767 

12-19  17.00.28 

7.2590E-08 

1.315 

2.564 

1 . 136 

1.281 

0.767 

12-19  17.30.28 

5. 7940E-08 

1.315 

2.564 

1.136 

1.266 

0.767 

12-19  18.00.28 

4.5400E-08 

1.316 

2.564 

1.136 

1.269 

0.  767 

12-19  18.30.28 

3.1070E-08 

1.313 

2.564 

1.133 

1.256 

0.  765 

12-19  19.00.28 

1 . 8970E-08 

1.311 

2.564 

1.131 

1.234 

0.757 

12-19  19.30.28 

1. 0129E-07 

1.302 

2.564 

1.123 

1.233 

0.745 

12-19  20.00.28 

3. 7720E-08 

1.293 

2.564 

1.117 

1.266 

0.732 

12-19  20.30.28 

7 . 2870E-08 

1.288 

2.564 

1.115 

1.228 

0.  720 

12-19  21.00.28 

5.471 0E -08 

1.283 

2.564 

1.  114 

1.243 

0.710 

12-19  21.30.28 

3. 7720E-08 

1.281 

2.564 

1.  114 

1.218 

0.  702 

12-19  22.00.28 

2.2650E-08 

1.278 

2.564 

1.114 

1.258 

0.696 

12-19  22.30.28 

1 . 0184E-07 

1.276 

2.564 

1.115 

1.260 

0.691 

12-19  23.00.28 

8.4120E-08 

1.275 

2.564 

1.115 

1.248 

0.687 

12-19  23.30.28 

6.9550E-08 

1.275 

2.564 

1.115 

1.213 

0.684 

12-20  00,00.28 

5.2770E-08 

1.274 

2.564 

l.  115 

1.213 

0.682 

12-20  00.30.28 

3. 4370E-08 

1.272 

2.564 

1.115 

1.261 

3.680 

12-20  01.00.28 

1.68G0E-08 

1.272 

2.565 

1.115 

1.269 

0.679 

12-20  01.30.28 

9.5890E-08 

1.272 

2.565 

1.115 

1.250 

0.673 

12-20  02.00.28 

7.8600E-08 

1.272 

2.565 

1.115 

1.218 

0.677 

12-20  02.30.28 

6.0700E-08 

1.271 

2.565 

1.115 

1.237 

0.676 

12-20  03,00.28 

4.4120E-08 

1.270 

2.565 

1.115 

1.262 

0.676 

12-20  03.30.28 

2.6490E-08 

1.270 

2.565 

1.115 

1.219 

0.675 

12-20  04.00.28 

9.7600E-09 

1.271 

2.565 

1.115 

1.240 

0.675 

12-20  04.30,28 

9.3490E-08 

1.271 

2.565 

1.115 

1.209 

0.675 

12-20  05.00.28 

7.6020E-08 

1.270 

2.565 

1.115 

1.215 

0.674 

12-20  05,30.28 

5. 7860E-08 

1.270 

2.565 

1.115 

1.245 

0.674 

12-20  06.00.28 

4. 2630E-08 

1.270 

2.565 

1.115 

1.216 

0.674 

12-20  06.30.28 

2.4910E-08 

1.271 

2.565 

1.115 

1.226 

0.674 

12-20  07.00.28 

7. 7600E-09 

1.270 

2.565 

1.115 

1.250 

0.674 

12-20  07,30.28 

8.5540E-08 

1.270 

2.565 

1.115 

1.258 

0.674 

12-20  08.00.28 

6.9420E-08 

1.270 

2.565 

1.115 

1.237 

0.674 

12-20  08,30.28 

5. 0420E-08 

1.271 

2.565 

1.115 

1.193 

0.674 

12-20  09.00.28 

3.2570E-08 

1.270 

2.565 

1.115 

1.240 

0.674 

12-20  09.30.28 

1.5900E-08 

1.270 

2.565 

1.116 

1.244 

0.677 

12-20  10.00,28 

9.521QE-08 

1.2  73 

2.565 

1.113 

1.234 

0.687 

12-20  10,30.28 

7.9630E-08 

1.278 

2.565 

1.  122 

1.258 

0.701 

12-20  11.00.28 

6. 1060E-08 

1.284 

2.565 

1.127 

1.254 

0.713 

12-20  11.30.28 

4. 7290E-08 

1.290 

2.565 

1.131 

1.254 

0.723 

12-20  12.00,28 

3.117QE-08 

1.294 

2.565 

1.131 

1.287 

0.731 

y. 
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program:  QUI16 

input:  data  fila  name 

scraan  vanion:  nona 

description:  produces  a  quick  list  of  key  variables 


G  o.  t  e  T  i  i  'i  e  i  n 
n  s  e  c  :  1 9  8 . 8  8 


T  o  t  a  1  H  u  ri  b  e  r  o  f 
P  o  i  n  t  s 

L  oils  C  t  e  d  *  14  8  r 


Tine  Interval 

Between 

M  e  a  s  u  r  e  «  e  n  t  s 


in  s e *:•  s 

• 

• 

9  8  8 

Date? 

91- 

1 6  -  8  3 

S  i  ■?  n  a  1 

Peri 

od: 

9.7 

7P1  7 
i  -'it 

5  e  -  8  8 

V  o  1 1  a  •?  e 

C  h  a 

n  n  e  1  s 

S  a  i'i  Pled 

• 

■ 

12 

program:  INIT05 

input:  data  file  naiti  start  date*  and  data 

scraan  varsion:  INT18 

dascription:  plots  coonter  time  interval  avaraga  measurements  as  a 

function  of  time 


Point! 

Plottad 


Pnnrmnt 

Intmml 


Orta 


Pray* 


Orta  Fila 


Frrxancy 


Cantor  Geta 
Ti»e 


JHH1 


Tina  lntmral  Piet 


-iW8. 


18.3  »fc 


3633  , 


program : 
input : 

scraan  varsion: 
dascription  s 


PH  4  0  5 

data  fila  naaa,  atart  data,  and  data 
nona 

plots  cumulativa  ohasa  minus  linaar  offsat  (lina  drain 
batmaan  andpoints)  as  a  function  of  tins 


T 

S  U 
■  u 

1  “ 


* 

t  LI 


1  'Ll 

j  :: 


Tiaa  In  OATS  bajiminq  11*12  I£34iB6 


Dots 

Proyxa 

«-!>« 

Cuailatlv#  Bata 

m 

irimt 

•nr«l 

1  362 

B  MCt 

programs 

input: 

scraan  varsion: 
daseription: 


!123  Nk 


OFF05 

data  fila  nama,  start  data,  and  data 
OFF  1 9 

plots  fractions?  fraouancy  offsat  (dalta  F/F)  as  a 
function  of  tima 


version: 
ption : 


V0FF05 

data  file  name,  start  date,  and  data,  offset  to  remove 
V0FF19 

similar  to  OFF05,  but  contains  option  for  entering  a 
constant  offset  to  be  removed.  In  the  example,  a  4e-12 
offset  aas  removed.  See  the  CFFQ5  graph  for  the  differeno 


422t'12  off»et  rnned 


1123 


Tiee  In  DAYS  be^imin^  81"  12  12:38:96 


ta  file  name,  start  average,  end  average 

ne 

similar  to  CFFQ5,  but  allows  data  over  specified  intervals 
be  averaged.  The  data  is  displayed  at  the  midpoint  of 
e  interval  averaged  Oh  the  graph.  This  program  is  useful 
r  calculating  temperature  coefficients  given  a  temperature 
of ile. 


OFFSET  eecovEMC* 
flVEMGlMC 
FPOGPBH 


3.«ori3E-lt 


«.  isrnE-u 


8w/rrl 

iMr-.sl 


3533  ,ki 


oro  gr am : 
input  : 

jcrun  vicsion! 
description: 


05 

data  file  namaf  start  data,  and  data,  channel  numbers 
MLT18 

similar  to  PL305.  Out  plots  up  to  <•  lines  on  the  same 
graph.  Enter  <cont>  to  plot  once  the  last  channel  has 

bean  entered. 


9  IM 


L3  ytwwmaj _ i _ i _ i _ i _ l.  i _ i _ i _ i  -  i  i  i  i  i  1  i  i 

iitiisiTiiaiiDauaannna 
Tiae  in  KU?S  beginning  27*21  02:22:9 

a--  Cote  file  Paints  r  Heoau-eaant 

rn7m  Haea  PI  at  tad  rregjency  Interval 

Voloa  Kjltiplst  test  ;  <3S  1  18.2!  Hfe  |  2(1  tecs 


Keoitr  event 
Intsmal 
248  a tea 


program: 
input  : 

screen  version; 
dascr iption : 


STK05 

data  file  name,  start  date,  and  data,  channel  numbers 
STK  13 

similar  to  PL005.  but  stacks  up  to  4  plots,  one  on  top 
of  the  other.  Sntar  <cont>  to  plot  once  the  last  channel 
has  been  entered. 


0  M 

Tie#  In  CATS  beginning  8H2  12:34:9 


©  a 


9.0  Program  Library 

Figure  9.1  shows  a  catalog  lis 
of  the  programs  on  the  system  d 
The  file  name  is  followed  b 
r  which  indicates  the 
=  program,  0=  data* 
memory,  and  K  =  keys.  The 
three  columns  contain  data  w 
indicate  the  number  of  records, 
beginning  track  numoar,  and  the 
ginning  record  numoer. 


CAT  DR  I VC  t  /A 

AVI  RCRDS  961 


ting 

NAME  TYPC 

SIZE 

4RCC 

TRCK 

RCRD 

i  sk . 

INIT.D 

D 

30 

T6 

R16 

MEMORY 

H 

238628 

94 

T39 

R10 

y  a 

1MT1B 

P 

4474B 

18 

T16 

R2 

file 

QFF05 

p 

4760B 

19 

T14 

R6 

OFF  18 

P 

4744B 

19 

T7 

R16 

M  = 

MAGPRG 

P 

1954B 

8 

T43 

R23 

SIC1B 

P 

40988 

17 

T8 

R25 

next 

GATHER 

P 

6S02B 

26 

T23 

826 

FVT05 

P 

498SB 

20 

T9 

R12 

hich 

IKIT 

p 

14  01  OB 

55 

T20 

R23 

IMT05 

P 

44528 

18 

T10 

R2 

the 

PL018 

P 

49548 

20 

T8 

85 

PL  DOS 

P 

49488 

20 

T14 

R23 

be- 

. 1NT05 

P 

37308 

IS 

T24 

RZ 

SCA06 

P 

4332B 

17 

T1S 

R1S 

REBOOT 

P 

1430B 

6 

T24 

R28 

S 1 005 

P 

42528 

17 

T16 

R20 

.80116 

P 

8168 

4 

T19 

R18 

0U116 

P 

9S8B 

4 

TIB 

R13 

KEYS 

K 

968 

1 

T26 

822 

PHAOS 

P 

47680 

19 

T26 

R23 

-OFF OS 

P 

3992B 

16 

Tie 

R17 

AVGOS 

P 

49628 

20 

T27 

R12 

USR05 

P 

49328 

20 

T28 

R2 

MLT05 

p 

S8S0B 

23 

T2B 

R22 

STK05 

P 

610GB 

24 

T29 

R1S 

.SIG05 

P 

36288 

IS 

T19 

R3 

HAGDAT 

P 

22748 

9 

T43 

R14 

IMIT.V 

D 

30 

T19 

R23 

VOFF05 

P 

49548 

20 

T32 

89 

. PL005 

P 

44  768 

18 

T17 

R2S 

•SCABS 

P 

2956B 

12 

T13 

R24 

V0FF18 

P 

49388 

2t 

T32 

R29 

STK18 

P 

60848 

24 

T38 

R12 

SCREEN 

K 

2228 

1 

T19 

922 

. IHl 18 

P 

37808 

15 

T23 

R17 

. INTI 8 

P 

3796B 

IS 

T22 

R18 

. 0FF18 

P 

40388 

16 

T6 

RO 

MLT1B 

p 

5898B 

24 

T33 

R21 

.SIG18 

p 

35848 

14 

T23 

R3 

. PL018 

p 

44968 

18 

T17 

R7 

. INI  OS 

p 

26188 

11 

T24 

R17 

SCA18 

p 

54428 

22 

T42 

R22 

gure  9.1 

PATCH 

p 

10608 

5 

T25 

R4 

Beginning  on  the  next  page 
documented  elsewhere  in 
printer  listing  of  each  of 


is  a  short  description  of 
this  paper.  Following 
the  programs  contained  on 


the  files 
that  is  a 
the  disk. 


not 

line 


MAGPRG  -  is  a  program  that  copies  programs  onto  magnetic  tape. 
The  program  requires  an  Ideas  4600  series  tape  controller  on  bus  7 
set  to  device  address  16.  The  tapes  produced  are  PIP-readable  ANSI 
standard  format.  The  program  loads  files  in  at  line  100  to  prevent 
skewing  of  the  margins*  so  the  blank  lines  on  the  program  listing 
are  necessary.  To  remove  the  line  numbers  in  an  editor*  delete  the 
first  three  columns. 

KEYS  -  is  a  key  file  that  contains  $sfg  statements.  This  file 
is  called  by  GATHER  to  enable  the  keyboard  execution  of  subrou¬ 
tines.  The  asterix  on  a  special  function  command  is  the  same  as 
<execute>. 

MAGOAT  -  is  a  program  that  copies  test  file  data  onto  magnetic 
tape.  The  program  requires  an  Ideas  4600  series  tape  controller  on 
bus  7  set  to  device  address  16.  The  tapes  produced  are 
PIP-readable  ANSI  standard  format. 

SCREEN  -  is  a  keys  file  that  loads  special  function  keys  for 
listing  programs  and  catalogs  on  the  display  screen.  The  Softcopy 
graphics  Library  binary  program  must  also  be  loaded.  The  keys  have 
the  following  functions: 

fO  sets  the  program  line  counter  to  0 
fl  displays  the  next  35  lines  of  program 
f 2  clears  the  screen 
f3  displays  a  catalog  of  drive  0 
f 4  displays  a  catalog  of  drive  1 

PATCH  -  takes  files  that  have  been  prematurely  closed  because 
of  an  interrupted  test*  and  patches  them  up  so  they  can  be  read  by 
data  handling  routines.  This  is  a  program  worth  knowing  about. 


f 

p 


7!  '  V '  %  .V 


,-rvvyv  -J^r-  T-  ■”• 


H 


i 


S-. 

i! 


The  pages  that  follow  contain  a  line  printer  listing  of  each 
of  the  system  programs. 


Table  III 

*********************************  e***********************^^******:}#^,**  $3$*$ 


* 

ea 

file 

page 

* 

e  « 

file 

page 

* 

«* 

file 

page 

* 

« 

X  X 

X  X  X  X  X  X 

X  X  X  x 

* 

X  X 

X  S  S  3 

* 

X  X 

S  S  S  X  X  X 

X  X  X  x 

* 

U. 

* 

1 

IN  IT 

45 

* 

14 

. 0  FFO  5 

69 

* 

27 

. PL  0 1 8 

93 

* 

* 

2 

GATHER 

49 

* 

15 

. 0 F FI  8 

71 

* 

28 

MLTQ5 

95 

« 

■ 

* 

3 

REBOOT 

51 

* 

16 

VOFF05 

73 

* 

29 

HLT18 

97 

* 

.  N. 

* 

4 

PATCH 

52 

« 

17 

V0FF18 

75 

* 

30 

STK  05 

99 

* 

* 

5 

.INI05 

53 

* 

1  3 

AVG05 

77 

tt 

31 

STKia 

101 

* 

* 

6 

•  I N 1 1  9 

54 

* 

19 

F  VT  0  5 

79 

* 

32 

GUI  16 

103 

* 

* 

7 

INTOS 

55 

* 

20 

SIG05 

91 

* 

33 

. GUI  1 6 

104 

* 

# 

3 

INT13 

57 

» 

21 

SIG13 

83 

$ 

34 

SCA06 

105 

» 

■ 

* 

9 

.INT05 

59 

* 

22 

. SIG05 

85 

* 

35 

SC  A  1  9 

107 

* 

1 

* 

10 

. INT 1 3 

61 

« 

23 

.SIG18 

86 

* 

36 

.SCA06 

109 

« 

i. 

* 

11 

PHAOS 

63 

* 

24 

PLOOS 

87 

* 

37 

USR05 

110 

* 

* 

12 

OFF05 

65 

* 

25 

PL018 

89 

* 

38 

HAGPRG 

112 

* 

,  * 

-e 

* 

13 

0FF18 

67 

* 

26 

. PL00  5 

91 

* 

39 

MAGOAT 

114 

* 

s 

-I- 

* 

************************ 

« 

****  * 

********** 

******** 

* 

* 

******** 
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Program:  INI T 


•'  ‘PROGRAM,  DATA  COLLECTION  INITIALIZATION  ROUTINE*! 

If 

I,  'saaeaaeeeeaeeeeeseeaaaeaeeaassBseaaeseaeeeeeaaeesssasaaaaaeae*. 

3i  *■  Itvi n  Millar  a  riln  INIT  a* ■ 

4.  December  2R,  IMI  a  Update.  July  IS.  1983  a* , 

Si  *a  Naval  txrarch  Leborelory  a  Ouleut  Device.  7243,  1330  a*< 

Si  *a  Soaca  Application*  Branch  a  Srlrct  Coda*  703,  718  a*g 

7.  . aaea  ea  a  ceeeaeeeaes  ease  a  aaea  eeeaae  eeas  eeoaeee. eeeane*  f 

8* 

Si  dtp  'Imart  Softcopy  Graphic*  Tapa*i*lp 

ldb  1 i da v  'PRINTCR*, 7 06, 'PL  OTTER*, 70S, 'SCREEN*, 718, ‘CLOCK*, 9 
Hi  dio  AI251  ,A«I23, 61, 81231,8*123, 101. C1I25. 11. VII4I 

12.  dia  n*[701,Tm41,R»(lS],SI(4,2].V*(21, 0*161,1*181 

13.  dia  *  a.C.f .O.I.K.L.H.Z 

14.  -*t*IStllIi*nd'IS»(21i*rd*IS*t31|‘tH*)S»(4l 

15.  file*  INlT.V.t.IHIT.OiOifad  0 

16.  cat  ‘Variable  or  Oefault  Inti  rtlc*,Rt|lf  flql3,jap  0 

17.  l»F,lf  cap<Rttl,ll)*‘0*,27F ,J  ap  2 

18.  If  cap<R«tl,ll)r*V* id*p  ‘Invalid  Entry* , vail  lSOOiJao  -2 

19.  ‘START*. ant  *lnltlalt<a.  List,  Gather  or  End‘,RS|tf  flql3,jap  8 

20.  capCRtf 1 , 1 17 !R» i If  R«-*G*idrlvc  8,qet  *GATH £8* 

21.  If  R»-*E* iaad 

22.  If  R*a*l*  and  R»d‘L‘,dso  ‘Invalid  Entry* i«alt  1300, jap  -3 

23.  rread  F . 1 ,0* . A. 8 , I » ,6 

24.  rraad  F  ,2 , AC  1 1 , A* 1 1 1  ,f or  L-2  la  Aisraad  F  .AIL  1  ,A*1L1 , nest  L 

23.  rraad  F  ,4  ,81 1 1 ,  B«  t 1 1 .  C«  I 1 1 .  f  or  L-2  to  Bisread  F ,BILj ,B«(L) ,C«tL) , next 

26.  c!p(ll(lrl]))R*ilf  R*-*L* ,qsb  ‘LIST* 

27.  \ 

28.  ‘INITIALIZE*! 

29.  art  "CLOCK*  , ‘R* , red  ‘CLOCK*  ,T* ,  T*  1 1 ,21  »T* 1 4.S11T0 

30.  ant  ‘Currant  Year.  YY*,Y»ilf  flql3tjap  8 

31.  If  val EY07  <80 ,dsp  ‘Too  Saall*)ualt  1300, jap  -1 

32.  If  val CV0 7 >90 1 d*p  'Too  Larqe*,ualt  1300 1 jap  -2 

33.  T*tY«>D*!**>R*,ant  ’Print  1 nstract iaaa* .Rtf If  flql3,jap  0 

34.  If  capEROtl  ,117-‘N* ,qta  'Vaenga  Taap  Central* 

33.  If  copEROIl  ,U)d*Y*  i  dap  'Ansutr  YES  or  NO'ivalt  lSOOijap  -2 
36.  *pc  3,prt  . . .  FILE*  ,  '  INITIALIZATION* 


37.  prl  . . ••••*,***  2iprt  ‘Four  paranctara* 

38.  prt  'art  lnlt lal lied* , ‘by  this  proqraai*,*  *,*  17  Vacuua* 

39.  prt  *  Temperature* , *  Central* 

40.  prt  *  27  Voltaqe*,*  Recording *, *  Channels*,*  37  Neasureaeat* 


41.  prt  *  Interval*,*  47  Ceuntar  Gate*,*  Tlaa*t*pe  2 

42.  prt  ‘With  the  proqraa*  ,  "you  can*  . ’select  I  vely  edit*, ‘any  or  all* 

43.  prt  ‘portloaa  af  tha*,*tnlt  file.  Enter *. ‘CONTINUE  la* 

44.  prt  'entry  aoda  ta*,*proceed  free  one* , * jec 1  Ion  ef  the* 

45.  prt  ‘proqraa  ta  the* , *ne»t . *>spe  3  » 

46. 

47.  'Vacuuaa  Trap  Control*. 

48.  **}R0.ent  ‘Edit  Temperature  Control*, 88 

49.  If  capEROtl  ,117-*N* ,qta  'Voltaqa  Channelo* 

30.  If  capCROCl  ,117a*Y* , dsp  'Ansver  YES  or  NO'ivalt  1500,  jap  -2 

31.  *T  Aqalo* . **)R* .ant  'List  Present  Teap  Setpoints*. R0 

32.  If  capEROtl. 1])-*N*, jap  3 

S3.  If  capCROf  1 ,117d*V*,dsp  'Ansver  YES  or  NO'ivalt  1500, lap  -2 
34.  qsb  'List  T* 

33.  'All  T* . *  *  7R0 ,ent  ’Chanqe  All  Entries', R9 

36.  If  capEROtl. 117-‘N*,qla  "Add  T* 

37.  If  capERtt  1 ,113d  *Y*  ,dsp  'Ansver  YES  or  NO'ivalt  ISOOiJap  -2 
36.  25>All],07K,**>V*,for  L-l  to  25, qsb  ‘Enter  T* 

39.  If  K  and  L-l|0>K,jap  2 

68.  if  K,qta  *T  Bat* 

61.  LlAinest  L ,25>A 

62.  dsp  *23  Setpoint  Max  Reached* i val t  2000,qto  *T  Bat* 

63.  ‘Add  T* . If  A«25,qto  'Delete  T* 

64.  **>R*,ent  ‘Add  Temperature  Setpoints*  ,R0 
63.  If  capEROtl. 117-*N',qlo  ‘Delete  T* 

66.  If  eap(R$(l,l])r*Y*,dsp  'Ansver  YES  or  NO'ivalt  lS00,jap  -2 

67.  07K, ** )Vf , f or  L-A*l  to  23,qsb  ‘Enter  T* 

68.  If  K,qte  ‘Delete  T* 

69.  L)A,ne*t  L,23>A 

70.  dsp  *23  Setpoint  Hex  Reached* , vail  2009 

71.  ‘Delete  T*.lf  A-l,qta  ‘Insert  T* 

72.  **>Rt,eat  ‘Delete  Temperature  Setpoints* ,R0 

73.  If  capEROtl ,113-*N‘,qte  ‘Insert  T* 

74.  If  capEROt  1 , 1  ]>r*Y*  ,dsp  'Ansver  YES  or  NO’ivalt  t500,J«p  -2 

73.  If  A-l,dsp  'Cannot  Delete  Lest  Temp  Setpoint* ,valt  2000, qto  ’Insert  T* 

76.  ent  'Entry  to  Delete*, 0, If  flql3  and  AE25,qto  'Insert  T* 

77.  if  f lql3  and  A-23,qto  ‘Modify  T* 

78.  If  D<1  or  D7Aidsp  ‘Out  of  Ranqc*,valt  1500, qto  *2 

79.  If  D* A ,dsp  str CD) 0*  Deleted* , volt  2000, jap  2 

80.  dsp  ‘Renumberlnq'tstrtD'DO*  thru*  Istr  C  A7  ,  vei  t  2000 

81.  for  L-0  to  A-t  ,AtL*U)AILl  ,A0IL‘11>AIELI ,  next  L,A-lJA,qto  -6 

82.  'Insert  T*.lf  A*23,qlo  ‘Modify  T* 

83.  “>Rt,ent  'Insert  Temperature  Setpoints*  ,R0 

84.  If  capERf(l,l)7**N*iqto  ‘Modify  T* 

83.  If  cepERt(l,ll)«*Y*|dsp  ‘Ansver  YES  or  H0*,valt  1500, jap  -2 

86.  ent  ‘Insert  8efore  Which  Entry* , Z, I nt CZ7 >Z, If  flql3,qto  ‘Modify  T* 


L 
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91.  A<25,e to  -5 

92«  dsp  *25  Srtpatnt  Kai  Reached* ,va , t  2009 

93>  ’Modify  T*,”>R8,ent  ’Modify  Individual  Entries*  88 

99 1  if  cap(RI(l,l])*’N’,qlp  ’T  8at* 

»•  if  cap<R«(l.ll)«*V’,dsp  ’Anwar  YCS  or  HO*, volt  1500, lap  -2 
96<  aat  ’Cntry  ta  Chonqs’.Ltlf  flql3,qla  ’T  Bot* 

97i  if  L<l  or  L> A ■ dip  ’Out  af  Ranqe*,walt  1500, lap  -I 

98,  0>K,’  New* 1 V8 ,qab  'Enter  T* 

99,  if  K||ap  -1 
ISO,  ala  -4 

IT  Bot*,rP',t  F.l.D8.A.B.II.100,rprt  F  ,2,8(11,80(1) 

102.  for  L-2  to  8»iprt  T ,81L 1 .At IL1 , nest  L 

103.  ”)Rt,ent  ’Lilt  Mew  Temperature  Selpoi nta* .80 

104.  if  cap(R8(l,l]>*’M*,]mp  3 

105.  If  cap(Rt( 1 .llld’Y* , dip  ’Answer  YCS  or  NO*, welt  1500, imp  -2 

106.  alb  ‘List  T* 

107.  ”)R*,ent  ’Pais  thru  Teap  Routine  Aqaia*  80 

108.  If  cap(Rtll.l])«*Y*,qte  *T  Aqaia* 

109.  If  captRttl  ,1 lla’M*  ,  dip  *8ni„er  YCS  or  MO’iwait  1500, lap  -2 

110.  ala  ’Volteqc  Channels*  J 

111.  ’List  T’.irt  iprt  ’Temp  Selpoi nil, *, •  •  •  Teap  Duratian* 

112.  prt  •••  rteqC  100HHMMJ  • ,  •  ea  less  saasaaae* 

}J2*  !;•*.  a'1ar  L*1  »•  *i»*r<AILll)M$,,f  absCAtLlXlQ,  ’  ’llfflMO 

114.  If  L«A,strCL)8*  ’»«*«•  ’«8»1L  1  )M»  ,  i  f  09, Ml  I  2 1  )M( 

115.  if  L-4,itr(OI’  *  4M0  0  •  to  end"  IMf  ,  if  L>9,MtI21>M0 

116.  prt  Ml, nest  L,spc  3. rat 

J}*’  "£".‘*1  T’,4tLaodl0-0>’<Laodt0-lX2CLaodl0*2>*3CLaodl0*3>*4«.eodl0>3>»l 

XX8*  If  L.'“  amd  L<X4|4)I 

119.  dip  Vttstr(L) tSf t 1  It*  Temperature  Setpoint • ,ent  *•  AIL1 

120.  if  f  1 4 1 3  and  L’l,dsp  ’25  deq  C  Default  •  ,.alt  1508 

121.  if  f lql3  and  L'l,l)K,rat 

122.  if  AtLl>’-50  and  AtLX*99,jep  2 


127.  Tf)8«rClirat 

128. 

129,  ’Voltaqe  Channels*. 


130.  ”)Rt,ent  ’Edit  Voltaqe  Recordinq  Channels*. 88 

131,  if  capCRt ( 1 , 1 1) • *M* iqta  ’Measurement  Interval* 

J55*  J*  1 eep<R8tl.lJ)d’V*,dsp  ’Aniwer  YCS  or  NO*, wait  1500,  lap  -2 

133,  VC  Aqaia* , * ■ }Rf ,ent  "List  Present  Channel  Settlnqs*. Rt 

134.  if  cap(R8(l.l]}.’N*,qto  ’All  VC* 

1».*  iIbC*ListtVC*1J#*V*'d*P  "*"***r  VES  or  HO'iwalt  1500, jap  -2 

137!  ’All  VC’  ,  ■  *181  ,ent  ’Chanqe  All  Entries*. 88 
138.  if  cop<R8tl.l3J-’N’,qto  ’Add  VC* 

VES  or  (to*  (wait  1500,  -f 

140.  S)K>Bi**>V8|for  L-l  to  2S,qsb  ’Enter  VC* 

141.  If  K ,  q  to  ’VC  Bot* 

142.  LIB, nest  L,25>8 

143.  dip  *25  Channel  Mas  Reached* ,wai t  2000, qte  ’VC  Bot* 

144.  ’Add  VC*. if  8-25, qto  ’Delete  VC* 

145.  **188, ent  ’Add  Voltaqe  Channels*. 88 

146.  if  cap(RS(l.lD-’H*,qto  ’Delete  VC* 

'*»>*•'  VE5  or  NO*, wait  1500, Jap  -2 

148.  0>K ,  > V8 , f or  L’B*1  to  2S,qsb  ’Enter  VC* 

149.  if  K,qta  'Delete  VC* 

150.  LIB, nest  L ,2518 

151.  dip  *25  Channel  Mas  Reached* ,wolt  2008 

152.  ’Delete  VC*. if  B-0,qsb  ’Modify  VC* 

153.  ’ ’ IRt ,ent  ’Delete  Voltaqe  Channel  Entries*. 88 

154.  if  capCRtt 1 ,lJ)-'H*,qte  ’Modify  VC* 


159.  if  0*8  or  8*1, dsp  str(D)!’  Deleted* , wait  1500, jap  2 

160.  dsp  ’Renumber Inq* 1st r CD* 17 8*  thru • Is trtBJ , val t  1508 

J®J’  td  9-l,BtL’tJ)8fLl,BtlL’lJ)Bt(LJ,CtIL’ll}CfIL3 ,  nest  L 

162.  B-llBijap  *6 

163.  ’Modify  VC*. if  B’0,qto  ’VC  Bot* 

164.  ’ * )Rt ,ent  ’Modify  Individual  Entries’, 88 

165.  if  cap<R8tl.in*’N*  ,qts  ’VC  Bot* 

Iff*  lf.e*2tR*tl’1,>/*V*'d,P  ’Answer  YES  or  N0*,woit  1500,  Jap  -2 
167.  ent  'Entry  to  Chanqe*.L,lf  flql3,qts  ’VC  Bot* 

}®f’  »!«■<•  or  L>8,dsp  ’Out  of  Ranqe’iwoit  1500,  |ap  -1 
169.  01K,*  New’ 1V8 , qsb  ‘Enter  VC* 

178.  if  K, jap  -1 

171,  qto  -4 

172.  ’VC  Bot’.rprt  F ,  1  ,D»  .  A ,  B ,  I »  ,  1 00  ,  r  pr  t  F  ,4  .BID  ,B»ll  1  ,C»tll 
ip.  for  L-2  to  B,  spr  t  F  ,81L1 ,8»tL  I  ,C8  IL I ,  nest  L 

174.  ” >R$ ,ent  ’List  New  Channel  Settlnqs*. 88 


qtb  '11*1  VC* 

"lllitRt  *Pa»l  Ihra  Channel  lautlnc  Aaaia'.RO 
If  (tp(Blll,ll)>‘V'iila  *VC  Aqet n* 

If  cap<Rtll,l])r'H*,dap  'Am.tr  YES  er  MO'i-all  1500, jap  -t 
qla  'Ataaartntnl  Interval* 

*L,»t  VC'.ape  ,prt  'Valiant  Channt I • , 'Se I t i nqa ■ • . •  *• 

prt  ■»»  Chan  ftnetlaa* ,  'at  aaaa  aiaiiaai1 

fid  Otfar  L-l  te  B ■ *tr (OIL  1 ) Int , if  BILKlOa'  ‘tntm* 

«tr<L)t*  '»«•••  *in*(if  L>9,«»(21INI 
If  CIILI-'D*  ,n»fOC  Val  1  a*  )nt 
If  CI1L1-'A' ,n«t*AC  Valta’in* 

If  CtlLl-'O'  ,n**'Dhm»'lH0 

prt  nfincit  Lfipc  2iprt  'ff  Nana'(*aa  aaaaaaaaad* 

far  L-l  ta  8,alrCL)«*  •  48*  CL  1 IH*  i  If  L>9  >rl»  l  2 1  INI 

prt  fftinrit  Liapc  3irat 

■Inter  VC'  ■  If  L»9  and  UHifllila*  2 

4(lmodlO-OWLmodlO-l>«2<LmodlO-2>.3(LaodlO-3>»4(LmodlO>3>>l 
d*p  Vllatr(L) ISM  1  It*  Channel  Humbcr'ieat  **,B(L> 

If  flal3,l>C,rat 

If  BIL  l>-0  and  B(LI<-39,jma  2 

dap  'Channel*  are  numbered  0  thru  39* (wait  2000 ijmp  -3 
dap  VfiatrCLItSOI I )**  Channel  Name*, eat  **,T* 

If  flal3i*Channcl*tatr(L-l)}T«idap  T*,»alt  1000 
If  len(Tt) >1 0 , dap  'Hama  Tea  Lonq*,welt  1500, Jap  -2 
T«lBIILl,"IRI,ent  'DC  Volta,  AC  Volta  or  Ohma'.R* 
cap(Rftl.ll)IR»,lf  flats,  'O'lRO 

If  RI/'O*  and  Rir'A*  and  Rtr'0',d*p  ’Invalid  Entry*, -alt  1500, Imp  -2 

RflCitlliif  Rt-'D'  , dap  *  DC  Volta’, malt  1000 

If  Rf- 'A* , dap  *  AC  Volta* , val t  1000 

if  R*. *0* ,dap  *  Ohma* ,.att  1000 

ret 

•Meaiurement  Interval*, 

**lR*,ent  *Chanqe  Measurement  lntervat*,R0 
If  cap(R»!l,lll-'N' ,alo  'START* 

if  capCRtCl.llle'V  ,dap  ’dns.tr  YES  or  NO', volt  lS00,|mp  -2 

ape  3, prt  *Pr eaent *, 'neaaurement *,* Inter val *  *,*  *ll*,apc  2 

*  '  IT*  ,  ent  Teas  ur  e  meat  Intervals  DOHHflMSS'  ,  T»  ,  If  flql3,jnp  • 

If  lcntT*)r8,dap  "Not  to  Proper  fora*,smlt  lS00,Jap  -1 

T  •  1 1 «  ,  pr  t  *Nest*  , 'neaaurement*  ,  'Interval,  ',*  *,*  *tl*,apc3 
rprt  F.l,Dt.A.B,It.lOO,<,la  'START* 

*LIST*t 

*  * 1R* , ent  *Llat  an  Screen  or  Printer*. R0 
If  cap(R»fl,l])-*P*iato  'Printer* 

If  cap(R*Il,lllr*S*,dap  'Ain.tr  SCREEN  or  PRINTER* , malt  1500, Imp  -2 
“Screen*, 

fid  OtPic  718 (hdepy  Oipetr 

acl  0,Z,0,20,xax  0,iai  15,xax  16, tax  19,xax  20 
yax  0 lyax  l,0,0,16,yax  C 

wlb  ’SCREEN*  .j/cansniisxi  iuti  ■  peO ,  ■  >pe287,967,aa* 

wtb  'SCREEN* , 'pel , I , ca . I  I tx  Thermal  Vacuum  Teat  Facility  *,3,10 

vtb  'SCREEN*, *peO... pa  30 .920, . .pel ,  ■ ,  tx  Proaram.  INIT’,3.10 
wtb  ’SCREEN* , *  peO , ■ ■ pa  30 .890, . .pel . . . tx  Written.  12-17-80* .3,10 
wtb  -SCREEN*, *peO, . .pa  30 . 860 , . , pel , , ■ * 

wtb  'SCREEN*, *tx  For,  Space  Apptlcattona  Branch*, 3, 10 

wtb  'SCREEN*, *pet,. .pa  30 .830 , . . pet . , .* 

wtb  'SCREEN*. *t«  US  Naval  Reaearch  Lob*, 3, 10 

wtb  'SCREEN* , *pe0 ,, .pa  520 .920, , < pet , , . tx  Revtalon  Data,  • 

wet  'SCREEN', D 1 1 1 ,2 1 1 ' - ‘ AD* ( 3 , f 1  *  *  -  *  ID t (5 ,E I ■ wtb  'SCREEN* ,3,10 

for  L-l  ta  7  by  2, if  I  Of L,Ll-*0* , '  *>I0(L,LJ 

next  L,im.21l‘d  *tl»(3.41t*h  *01015, Elf'a  * 1 1  0(7 ,81  A'a* >R0 

wtb  'SCREEN*, *pe0 ,. ,pa  520 ,890, , .pel, , , tx  Neaaurement  Intervale* 

wrt  'SCREEN* ,Rt , wtb  'SCREEN' .3,10 

wtb  'SCREEN* , *pe0 ,, ipe  520 ,860 , , . pel , t , tx  Counter  Cote  Timet  * 

wrt  'SCREEN* , strCGIt*  macc'iwtb  'SCREEN' ,3,10 

wtb  'SCREEN*. *pe0. • .pa  32 , 770 , > .pel , , • • 

wtb  'SCREEN*. *tx  line  Temperature  Control  aeea*,3.10 

wtb  'SCREEN*, *pe0,t .pa  553, 770, , . pel , t t * 

wtb  ‘SCREEN*. *tx  ■■■■  Scanner  Control  uu',3,10 

wtb  'SCREEN*. *pe0.. .pa  25 , 71 0 , . . pel , , , • 

wtb  *SCREEN*,*t«  Temperature  Duration*, 3, 10 

wtb  'SCREEN*. *pe0,.. pa  25 .685 , ■ ■ pel , it* 

wtb  'SCREEN*, ‘tx  ••  (deq  C>  Oaya  Hr*  Nlns  Sec**, 3, 10 

wtb  "SCREEN* , *pe0 ,, .pa  25 ,665 , i , pel  ,  1 1 ■ 

wtb  'SCREEN*,  *tx  ■■  ■itfiiiiiia  tin  „■  mi  x«*a*,3,10 
for  L-l  to  A,str(L7)Rt,RfI21>R0,if  L<10,'  *(R*>R0 
wtb  'SCREEN*. *pe0,., pa  25 , 'ta tr C660-25LI *' , . .pel ,  t .  tx  *>R0,3.10 
* tr (ACLII IRt , If  aba( AIL  1 ) <10, *  'iRtlRO 

wtb  'SCREEN* ,'peO,«, pa  127, • tatr (660-25LI t* , . .pel , . ,  tx  *tRO,3,10 
AttU>R«,Rfll,2l>R0,lf  ROfl.ll-'O*,'  'IRtll.ll 

wtb  'SCREEN*, 'pe0,.,pa  264 , ' »*tr (660-25LJ t ' , . .pel , . . tx  ‘1R0.3.10 
AIIL]lRt,RtI3,4])R0|if  Rtll,ll-'Q','  'IRtll.ll 

wtb  'SCREEN*, *pe0,..pe  320 , • tatr (660 -25LI »' , , .pel , . . tx  *IRt,3,10 
At(L)>Rt|R*(S,61>R0,lf  R* 1 1 , 1 1 - ■ 0*  ,  •  'IRtll.ll 

wtb  'SCREEN', 'peO, . .pa  372. * ta tr (660-25LI I* , < .pel , .  .  tx  *lRt.3,10 
wlb  'SCREEN*, 'peO.iipe  444 , *  tat r (660-2SL7 1* , > .pel , . , tx  O'. 3. 10, next  L 


r unct Ion* ,3,11 


•  lb  *SC0CrH*  #  *pc*  ,  •  ipo  iie.CKmi.tl,..* 

•lb  *SC0C£N*,*ts  ##  humper  Hone 

•lb  •SCBt[H*.*peO,..po  530,665,. .pel.,,* 

•lb  ’SCREEN*. *ta  ■■  3  i| 

for  l-l  to  aiatr<L)>P*,P*l21>R*,tf  l < 1 0 i *  *404)0* 

•  tb  ’SCREEN* , *  p  e  ©  ,  ■  .  po  531 . * la I r <669- 25L1 »• , . , pci , . . ta  *100. 3.1* 
alr(BfLl)  >00, If  BtLHlO,’  *>0I)0« 

•lb  ’SCREEN*, *pe0,».po  613.*litr<G60-2SL>4*,.ipel...ta  *101. 3.1* 
8*(Ll)0i|<or  PI-1  to  int(S-len<RI)/2),*  *101)01, nest  M 

•  lb  *SCREEN*,*peO,  i.po  700.*lstr (660- 25L1 4* |,,prl.,.ta  *IB»,3,10 
I f  C»{LJ-*0*,*0C  V*)R» 

l#  CIIL1**A*,*AC  V*>0» 

I f  C*tL)-*0*,*0ha.a*>R» 

•  tb  ‘SCREEN*.  * peO ... po  879 , *  I  a t r <660- 25L1 *  * , . > pel . • . ta  *40*. 3. 10, neat 
Ito  ‘START* 

*fr  1  nter  •  , 

psc  705 , hdcpy  lipclr,scl  0,1023,0.1023 

pit  0,0.1, pit  1 023 ,0 ,2 , pi t  1023, 1023, pit  0.1023, pit  0.0 

ioa  767,xoa  818, aoa  372, yoa  512 , 0 , 0 , 81 8 , f ad  0 

pit  317 , 989 , 1 , 1 bl  *  Thermal  Vacuum  Teat  Facility- 

pit  30.933,1, lbl  'Proqram,  IN1T* 

pit  30, 903.1, lbl  ’Written.  12-17-80* 

pit  30, 873,1, lbl  *ror.  Space  Applicotlone  Branch* 

pit  30, 843.1, lbl  *  US  Hawol  Research  Lob* 

0011,214*-*4D4[3,414*-*404f5,63>R0 

pit  540 ,933,1 , lbl  ‘Revision  Data,  *400 

pit  540 ,903 , 1 , lbl  Measurement  Interval,* 

for  L-l  to  7  by  2,14  I  4 f L ,L1 -*0* , •  *11*11, LI 

neat  Ltlbl  !*tl,2l4*d  *41413, 4]**h  *41415,61**0  *41417, Bit's* 

pit  540 ,873,1 , lbl  ’Counter  Gate  Tina,  ‘IstrlGlt*  msec* 

pit  72, 785,1, lbl  *aeas  Temperature  Control  ■„>* 

pit  61 0 , 785 , 1 ,  lbl  ‘anas  Scanner  Control  ,,11* 

pit  35, 710,1, lbl  *  Temperature  Duration* 

pit  35.685,1, lbl  (den  C)  Days  Mrs  hint  Secs* 

pit  35, 665,1,  lbl  *as  aaaiiiiiaas  seen  in  ins  aaas* 

for  L-l  to  A.slrCLDRt, 04121)0*, if  L<10,*  *4Rt>R* 

pit  31, 660-2SL,  l.lbl  00 

str (Af  L 17  TO*  ,  I f  obsCAtLIXlO,  •  ‘40(10* 

pit  132 .660-25L , 1 , lbl  0* 

A«(L]>0*,0*(1 .2110*, If  R»tl,ll-*0*,*  *)R*(1.1I 
pit  266.660-25L , 1 , lbl  0* 

A*(L]>0*,R«(3,411R*,lf  R«tl,ll-*0*,*  *10*11,11 
pit  319.660-25L . 1 i lbl  0* 

AtILl>R(,R*IS.61}R«,tf  R((l.l]-*0*t*  *>0*11,11 

pit  371 .660-25L , 1 , lbl  00 

pit  442 .660 -25L ,1 , lbl  *0*,neat  L 

pit  556.710.1, lbl  *  Channel  Channel  Channel- 

pit  550,683.1,  lbl  •••  Number  Name  Function* 

pit  550, 665.1,  lbl  *sn  season  aaaaoa  i.iuui* 

for  L-l  to  B,atrCLl 10«, 04(211 0*,tf  L<10,*  *40*10* 
pit  551 .660-25L  ,1 ,  lbl  00  *  * 

atr(BfLll>Rt,lf  BILKIO,’  *10*18* 
pit  629.660-25L ,1 , lbl  00 

B41L110* , f or  H-l  to  lnt(3-len(R*>/2},*  *40*>0*,neat  N 
pit  714 .660-25L , 1 , lbl  0* 

If  C»fLl-*0*,* DC  V* >00 
tf  C*tLl-*A*,*AC  V* 108 
If  C*(L]-*0*,*0hns*>R* 

pit  886.660-2SL,l,lbl  If*, neat  L,«tb  ’PRINTER*  .  12, 13,27, 69,qte  ’START* 
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•programs  thermal  vacuum  tcst  facility  main  program*! 


•a  Kevin  Mliler  e  rile.  GATHER  • 
*■  January  14,  1980  ■  Update.  July  6,  1983  ■*• 
'■  Newel  Rnrefch  Laboratory  ■  Output  Oevicei  Multiple  ■ 
*■  Space  Application*  Branch  e  Select  Codeai  7,8.9 


‘DECLARE  VARIABLES  AND  DEVICES*! 
dap  ‘Insert  Softcopy  Graphics  Tape'istp 

ldb  1 1 dev  ‘KEPCO‘,701, ‘SCO ‘,707, ‘SCANNER*, 7 09, ‘PRINTER*, 7 06, ‘PLOTTER*, 7 05 

dev  ‘COUNTER*, 712, ‘VOLTMETER* ,722, ‘SCREEN*, 71 8, ‘CLOCK* , 9 

‘VARIABLES  IN  THIS  PROGRAM*. die  C I  25 1 .  T I  4 1 , K I  25 1 . 1 » I  7 ) , 01 1 61 , K S 1 23 , 61 

die  0»l  161,0125, 101, J»(25],£l!141,V»[21,G«m,Tl(  141, f  1161 

dla  1 .O.G.N.K.P.C.A. J.8,0 

‘VARIABLES  IN  CHAINED  PROGRAMS* .dla  HI 2 1 , VI 2 1 ,Mt 25 1 . SI2J 

dla  R»tlSl,U*(71,Mtt40l 

dla  R,D,M,L,S.E,U.V,H,H.X,y,Z 

drive  Oiflles  1 , INIT. V. 0 . 1  HI T. 0. 0 iqetl  ‘KEYS* 

‘RE AO  INITIALIZATION  DATA  FROM  INIT.V  OR  INIT.O*! 

cat  ‘Variable  or  Default  lalt  F 1  le  ‘  ,  T 1 , 2  J  TI  4 1 , 1  f  capETtEl  ,l»-*0*  j3>TI41 

creed  TI 4 1 ,1 ,D» ,TC 1 1 , J ,TI ,G, 1 1TI31TR 

•TEMPERATURES’ .creed  TI4 1 , 2 ,K 1 11 . Kt 1 11 

for  8-2  to  Till isread  TM  I , K f  B 1 .  K11 81 , next  8 

‘CHANNELS*. If  J-0 | 1 ap  3 

rrcad  TI 4 1 .4 ,C! 1 1 ,C*I 1 ) , J011J 

for  8-2  to  J| sreed  Tt 4 1 , C 1 8 1 , Cl f B 1 , Jt ( 81 , next  B 

8640 Oval  ETt  (  1 ,217*3600val<Tt(3,41)  -60val  CTA15, 617* val IT 017,81711 

*2107>-<||  ')Tt|TtI6-loq(G)  ,6-  1  o* <G7  1  >G0 

‘STARTUP  DIALOG*! 

art  ‘CLOCK*. ‘R*ired  ‘CLOCK* ,T* i spc  3 

prt  ' . •••.•••••••,*  GATHER* i spc  2 

prt  ‘Today’s  Oatei*.*  *»T» I 1 , 2 1«‘ - ■ tT* (4 ,51**  ‘«TlI71|spe  2 

•START*. art  ‘CLOCK* , *R* ,ent  ‘Start  Test.  MMDOHMMMSS* , TO 

If  f  lql3ired  ‘CLOCK*  ,Tt,Tlll, 21 47114.51  AT t(7. 81 ATtllO, 111  AT t(13, 141 >T0 

If  lenITtlelOidsp  ‘Not  la  Proper  Fora*|welt  ISOOiJap  -2 

Tttl,21A*-‘tTtI3,4Jf  ‘  ATt[5,614*  .  ‘  AT  1 1  7 , 8 1  A‘ .  *  AT  1 1 9, 1 0 1  )Mt 

prt  ‘Start  Teat.*,*  ■ AMt , spc  2|Tt>£t| *TIH£*>Q>TI21 

eat  ‘End  Test.  MMOOHHMMSS* ,E8 

If  flql3idsp  *  Aa  End  Date  MUST  be  Specif  led.  *  >walt  ISOOiJap  -i 

If  not  len(Et)-10idsp  ‘Not  la  Proper  Fara*ivalt  ISOOiJap  -2 

E tl 1.21  A*- ‘AEt 13,41 1*  'AEt 15,614*. * AEtt  r,8) A* . ’ AE I (9.1011NS 

prt  ‘End  Test!*.*  •AMtispc  2|lf  sqa<*TIME*-a>Q7-l i]ap  3 

dsp  ‘Test  Must  BEGIN  Before  It  ENOS. ‘.veil  1S0B 

dsp  -Try  Aqala. ‘i-att  1000, etc  ‘START* 

ent  ‘Current  Year.  YY*.V8 

If  valCYt7<80|dsp  ’Too  Seall*,aalt  150t|lap  -1  • 

If  val(YtI>90|dsp  *Toa  Larqe’ivalt  lSOOfJap  -2 
if  rdstll>120|dsp  ‘Insert  POWER  FAIL  TAPE’istp  ilap  8 
lat (Q/Il 1H t trfe  0|KIl]>Q,rcf  1 ,Gt ,Tt ,Ft ,1,8 
If  N-Oidsp  *Tlae  Interval  Toe  Saall*,valt  1500, qte  ‘START* 

•FILE*. eat  ‘File  Where  Oata  Is  to  be  Stored*. Ft 

drive  liasqa  rt, 1.1,0, If  Q-liste  ‘OPEN* 

dsp  Ft,*  has  Already  Been  Opened* , volt  1500,qta  ‘FILE* 

*0PEN*iopea  Ft,M-4,asqn  Ft ,1 ,Tt >Et iprt  ‘File.  *AFt,spe  3 
•WAIT*. art  ‘CLOCK* . ‘R* , red  ‘CLOCK*. TO 

If  TtIl,21tTtI4,5lATtI7,81ATt(10,llltTtI13.141<Et,lap  -t 
•READ  INITIAL  DEVICE  INFORMATION*! 

art  ‘CLOCK*. *R*,red  'CLOCK* .Tt ,Tt 1 1 ,21 ATt 1 4 ,5 1 AVtlTO 

art  ‘COUNTER*. 'F2G-BC0A-AB‘ALA0. OOLBO. OOHOOIEIHO J0‘ ,red  ‘COUNTER*. P 

art  ‘COUNTER*. *F5G-6C0A-A8‘ALA0. OOLBO. OOHOOIEINOJO*, red  'COUNTER*. C 

rprt  l,l.G,N,I.Tt,P,J,*end*|for  8-1  te  J,sprt  1 ,C(B] ,CI(81 ,Jt 18,81 , next  8 

999Ktll/103>T,‘0123456789A8COEF‘>Mt,‘.‘lTt,lf  T<0| *  - ‘ )Tt ,abs(T>>T 

for  B-2  ta  0  by  -1 , Int IT/16-87 >C ,Mt  IC*I  ,C-1 1 ITtt 4-B ,4-81 ,T-C16*B1T, next  8 

art  ‘BCD*  ,Tt  |if  TIIDI,  ‘ 00 ‘  AKt 1 1 1  A‘ 00*  )Et ,  *T IME  *-TI  21 1TI2I 

•SET  CLOCK  TO  INTERRUPT*! 

oal  -CLOCK*. ’TAKE  READINGS  ANO  ST0RE*telr  ‘CLOCK* 
fat  l.'UlH,Ul-Ol,UlP*.fl0.t,*/UlG'iart  ‘CLOCK. 1 *, 10081 
art  ‘CLOCK* ,*U2H,U2-02,U2P5000/U2G* 

•NEXT  PROGRAM* s 

far  A-8  ta  llilf  flqA,cfq  A,fxd  0,qsb  *7 

next  A, lent  1 1 7 1 A i If  Itll.ll-*  *|fxd  0,str (N-K‘!)> 1 1 , 1 1 1 2 1 1 1 1 ,qto  *2 
*  ‘lltll.lltlf  A>1,*  ‘11112, 21, If  A>2, *  ‘ 1 1 1 C 3,31 , If  A>3,*  ‘)itt4,41 
dsp  ‘Select  Proqraa  Key  I  *  A 1 1 A* 1* ,aalt  300,11a 

If  K<-N,qte  ‘NEXT  PROGRAM* 

dsp  ‘Execution  Csaplete* ,art  ‘C0UNTE2*,*I2E8* 

art  ‘KEPCO*, *000000* idrkvc  Oistp 

drive  Otjap  A*t 

*0* ■ chela  ? . INI 18* . 144 , 144 

*1* .chela  *. INT18‘,144,144 

*2*. chela  * . 0FF18* , 144 , 144 


T  r,  c-  r  *  a  1  V  ?cu(j»  Test  Facility 


97 i  *3*.chala  * . SIG19’ .144 ,144 
89  •  *4*.cHa>a  *  .PL018*  .144  ,144 
89.  *9*  .chain  *. 0UI16* .144.144 
98.  *6*. chain  *. I  HI #5* .144 ,144 

91.  *7*. chain  *. IMT05* ,144.144 

92.  -9-. chain  • . OFF05* .144 .144 

93.  *9*  .chain  *.SIG0S* .144 .144 

94.  MO'.chnln  * .PLOOS* ,144 ,144 

95.  *11* .chain  *  .  SC A06* ,144 .144 

96. 

97.  'TAKE  RE AO  I  MGS  AMO  STORE* . 

98.  art  ■ CLOCK* , • T* . I f  not  bl 1 (0 ,rdb( 'CLOCK*})  .ala  *TCD  AMO  CHAMBER  CONTROL* 

99.  art  * CLOCK* , *R* .rod  *CLOCK‘,T8 

101.  TI(l,2nTOI4,SlAT«(7,a)tT»(10,ll)iTt<13.14)>T»|T*>C*i«Bt  *13.8 
1(1.  If  K*l.KlM>0,rcf  1. G4.Tt.ro, 1. 9 

102.  art  *COUMTER* , 'F5G-6C0A* A9* ALAO. OOLBO. 00M0D1C1M0 JO*  .rad  'C0UMTCR*,C 

103.  drlwa  l.rprt  1,K*4,T4,C, *end* .for  8*1  ta  J 

104.  If  J41B, 8J-*0* .art  * VOLTMETER* , -T 1R7M3A1H000T3* 

105.  If  Jf(B.B)**A*.art  ’VOLTMETER*. T2R7M3A1H0D0T3* 

108.  If  J»tB,S)-*0*.art  ’VOLTMETER* .-F4R7M3A1H0D0T3* 

107.  fat  2.*C*.f*R.8.*E*,-rt  -SCAMMER. 2* ,CIB1 

108.  999K1T131)/10S>T|*0123458789ABC0EF*)M4| ***)T0,lf  T<0, *- *>T» i abifT) >T 

109.  for  0-2  to  0  by  -1 .  tnt  CT/ 16*0)  >C  iMt  (Cl  ,C*1 1  >Ti  [  4-0.4-01  ,T-C16“0»T|  next  0 

110.  fat  2.e.'FFrrrr'.4ciart  -BCD. 2* ,Ht! 16-C181nodlO)C,C2,T4i«alt  100 

111.  lr<|  -VOLTMETER*  |aalt  200.r*d  -VOLTMETER*  .C.mprt  l.C.'end* 

112.  nant  8. If  Tt3)-Ttl)iqta  *6 

113.  *OI2345S789ABCOEF * )M4 .if  'TIME* <Tt21- . 1 1  into  *5 

114.  999K(T(3]*l>T[3)]/105>T,***>Tt,lf  T<0| *-*)TI ,ab»(T)»T 

115.  far  8*2  to  0  by  - 1 1 Int tT/16*8) >C .M4 1 C* 1 ,C*1 1 »T It 4 -8 ,4-BJ ,T-ClG*8>T,ne*t  • 
118.  art  *BCD*  .TO  .  If  TI3XTI 1 1 ,  *  00  ■  tK 4 ETf  31 1 1 -00- >E 4 1  'TIME  •  -T12J  )T12J 

117.  ldf  l.Gt.Tt.FO.I  .O.KETC31  DOircf  1  ,G4  .  T4  ,F4 . 1 .9 

118.  dr  1 vc  O.anqn  -MEMORY- .3 .0 ,0. If  Qrl.ktll  -MEMORY* 

119.  lavca  -MEMORY*  .drive  l.K-DK.elr  ‘CLDCK’ilrat 

129.  -  s 

121.  *TCD  AND  CHAMBER  CONTROL* • 

122.  999K1TC31 )/ 105)0. -0123458789A8C0EF*>G0. ***>T4|lf  8<0.  •- -)T4 ,aOn(Q> >8 

123.  for  B-2  to  9  by  -1 . 1 nt (0/18*8) >C ,04tC*l ,C*1 1 )T414-B.4-B1 |0'C16~8)Q, nest  • 

124.  art  -BCO*,*EFFFFFr*lT4,art  ‘SCANNER* .‘C31E* ilrq  -VOLTMETER* 

125.  aalt  200. rad  -VOLTMETER* ,0.1000)0 

126.  art  -BC0*.*FFFFFFF*4T4,art  -SCANNER* . *C30E* .trq  -VOLTMETER* 

127.  aalt  200.rad  -VOLTMETER*  .C.lOOOCilf  KITC31 1-C-O.  CC-0)/15)0.qto  *2 

128.  5.6CKITI 31 J~0)*nqnEK(T(31)~C)  1 81. 7nl  8*E. 431  oqEabnCKITl  3)1 -CD)  >6 

129.  fid  O.lf  abi(0)>400|-400’)04,qta  *R 

130.  itr<lnt(Q))>Q4lQ4E2])Qt.if  abiCOXlOO,  *0*404)04  .  If  abotOXlt.  *0*104)00 

131.  *4*104)04, If  0<0|-3-)Q4(l.ll 

132.  -60*>a4(S]|tf  a>4oo, *4oa*)ott2, 41 

133.  art  ’KEPCO* . 00 ,alr  *CLOCK*.lrat 

134. 

135.  ’TIME*. 

136.  Olpl.far  0-1  ta  val EEOtl .211-1 

137.  If  0-1  or  0-3  or  0-5  ar  0-7  or  0-8  or  0-10  or  0*t2,pl*2678400)pl , Jap  3 

138.  If  0-4  or  0-6  ar  0-9  or  0*11  |pl*2S9200B)pl .flap  2 

139.  If  0*2 . pi* 24 1920 0)pl 
149.  nest  8 

141.  pl«86400val  ECO f  3,41) *36Q0val  (E4(5,61  Dpi 

142.  rat  pl*60val (E4t 7,81)*val (Et(9, 1911 

143. 

144.  end 
■10549 
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.  -program,  power  tailure  bootstrap** 


>< 
-i, 
5. 
Si 
7 1 

11 
9. 
10 
11 

12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


•a 

Kevin 

Millar 

■  ■  • 

■ 

nie.  RCBOOT 

ia*  • 

•a 

a 

Update,  July  20.  1983 

Naval 

Peacarch  Laboratory 

a 

Output  Davlcesi  5345.  3455 

*  ft  a 

Space 

Application*  Branch 

• 

■  aa 

Select  Codes,  712,  722,  9 

■•i 

ii*i 

dev  •COUNTt#*,712.*VOLT«CTE**,72t.*CLOC«*.9 
dim  G4I11.T01 141.rtf 61, I .Q.A.C.T.V 
ldf  i. ot.To.ro, i. a 

drive  1|*>**  rt.l 
vrt  ‘VOLTMETER* , *T3* 

vrt  ‘COUNTER* , *f 5G*6C0Aa AB'ALAO .OOLBO.OOHODlElHOJO*ircd  *COUHTEB*,C 
*TIM£*»T 

vrt  *CLOCK*,‘R*,red  ‘CLOCK* , TO 

prt  *Pover  f at  1 *, ‘restart  at*‘,“  *,Tt,spa  3 

Toil, 21  till  4, SltTtl 7,81 tTOI 10,11 ItTtl 13.14 1>T0 

'TIHC‘18 

If  U>T ,T* I  IT i Jap  t 

vrt  ‘CLOCK*. trad  ‘CLOCK*, TO 

Ttt 1. 21*1114. SI tTt (7, 8) *Tt 1 10,11 ItTtl 13.14 11T0 

fid  Oidsp  ‘Second*  till  restart! ‘ *strtT-*TlME*> 

if  T>‘T1MC* iqla  -3 

fat  1 . ‘U1H.U1 *01 , U1P* , f 10. 0 . ‘ /U16* 

vrt  ‘CLOCK. I'.lOOtl 

vrt  ‘CLOCK*. *U2H,U2-02,U2P5000/U2a* 

drive  Oijete  'MEMORY* 

end! 

•TIME*. 

Olplifor  A-l  to  vallTtll, 21J-1 

if  A'l  or  A«3  or  A«5  or  A*7  or  Aa8  or  Aa10  or  Aai2ipla2&78400>pl,iap  3 
If  A-4  or  Aa6  or  Aa9  or  Aal 1 fpl '2592000 >pl i jvp  2 
If  Aa2ipl«24192001pl 
nest  A 

pi *8640 Oval (Tt(3,411 *3600val CTt 13,617 )pl 
ret  pl'60val lTti7,81)‘val CTt 1 9, 10)3 
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Program 


1  • 

&  • 

•PRDGRAHa 

PATCH  half-filled  data 

FILES* . 

t  a 
3a 

•a 

Kevl  a 

Hiller 

i*  aei 

■ 

rile.  PATCH 

l*i 

4a 

•» 

December  20,  1980 

■ 

Update*  December  20, 

1980 

Sa 

Navel 

Research  Laboratory 

■ 

Output  Device*  9885 

6a 
7  a 

la 

•a 

Space 

iiitae 

Applications  Branch 

a 

naa 

Select  Code*  9 

l*i 

9a 

•get  file 

HAME  AHD  PATCH*. 

10.  dla  0,N,  1 .00(61  ,Tltl41,P,  J,C12SI,CI(2S,lt  >,  JO  1 25).  ft  (Cl.D.K.L.C 

11.  file*  a.l 

11.  '*>ro,ent  Tile  ta  be  Patched*  ,FI  i  If  TlqlSiJ-p  • 

13.  drive  l.aaqn  Ff.l.l.Qiif  Qrlijno  2 

14.  dap  TOO*  doe*  not  ealat*inalt  lStltl**  -t 

15.  If  Qfl  and  0*3  and  Q#5  and  O/fiija*  2 

10.  dap  F00*  1*  not  a  Data  Flle*ivalt  lS00|)ap  -4 
17.  aaqp  Ft.l.OlK.an  end  l.'Flp* 

IS.  rread  1 . 1 , G , H , I . Dt . P , J 

19.  for  L-l  ta  J.sread  1 ,C1L] .COIL] . J01L.L] incat  L 

20.  K-llK.rread  1 .K-4.T0 ,C. Jnp  • 

21.  dap  *•■■»  PROGRAH  ERROR  aaae*,,tp 

22.  *Fi«*.rprt  1 .1 .G.K-llK, 1 ,D*,P.J 

23.  far  L-l  ta  J.aprt  1  .C1L ) ,  CO (L 1 ,  JO (L  ,L  1 ,  neat  L 

24.  fad  0 1 dap  *01d  H  -**alrCN>«*  Hea  H  -  * ta tr CIO  idr 1 va  • 

25.  end 
*1041* 


U8PR06RAH.  INITIALIZATION  FILE  LIST*. 


2. 

3. 

4. 
3. 
«• 
7. 
ti 
9. 
10< 
11. 
12. 

13. 

14. 

15. 

16. 

17. 

18. 
19. 
2D. 
21. 
22. 

23. 

24. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37. 

38. 

39. 
48, 

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 
58. 

51. 

52. 

53. 

54. 

55. 

56. 


■  Kevin  Hiller  ■  rile.  .1NI0S 

I  December  20,  1988  ■  Update,  December  20,  1980 

I  Naval  Research  Laboralary  ■  Output  Device.  7245 

'e  Space  Applications  Branch  e  Select  Code.  705 


DISPLAY  ON  PRINTER*. 

creed  T( 41 .1 .00 , TI 1 1 . J.H8 ,6 

hdepy  l.psc  703.pclr.scl  8,1023,0,1023 

pit  O.O.liplt  1023,0,2 .pit  1 023,1 023 . pi 1  8,1023.plt  8,0 
sea  767. saa  818. sea  972. yea  312 , 0 , 0 . 818. f ad  8 
pit  317,989,1.1b!  'Precision  Oscillator  Test  facility* 
pit  30 ,933,1 i Ibl  'Proqram.  INIT* 
pit  30  ,903 , 1 .  Ibl  'Unties.  12-21-88* 

pit  30, 873,1. Ibl  'For.  Space  Applications  Branch* 

pit  30,843,1 . Ibl  *  US  Naval  Research  Lab* 

DO  (1,210*-* *00(3, 41A*-*A00t5, 61188 
pit  548,933, 1 p Ibl  ‘Revision  Date.  ‘>88 

pit  540 ,903, 1 1 Ibl  'Measurescal  Interval.* 
far  L-l  to  7  by  2itf  NOIL ,L1 -'8* . '  *>N0(L.L) 

neat  L.  Ibl  M0tl,21A*d  *>HtI3.410*h  *1140(5, 6!0*n  *lM0(7,8]«*s* 
fad  O.plt  540,873,1 . Ibl  'Counter  Gala  Tine.  *>str(C10*  a sec* 
pit  72,785,1 . Ibl  *«■■■  Temperature  Central  aaaa* 
pit  610,785,1 | Ibl  *aaaa  Scanner  Conlral  aaaa* 
pit  35, 710,1.1b!  *  Temperature  Duratlaa* 

pit  35,685.1 1 Ibl  (dee  CJ  Days  Hrs  Hina  Sees* 

pit  35,665,1 .  Ibl  *■■  mmiian  lies  saa  aaaa  aaaa* 
for  L-l  to  T(  1 1 1 fad  0. str «LJ >80 . R0(21 180 , If  L<10|*  *>80188 
pit  31 ,660-2SL.l  i  Ibl  88 

fad  0istr<K(Ll)lR0|lf  ab.CKILIXlO. •  *>80188 
pit  132 .660-25L  ,1 .  Ibl  80 

KOILI1RO. 80(1, 2)180. if  R0ll,n-*0*|*  *180(1,11 
pit  266.660-25L ,  1 .  Ibl  88 

KO(L])R0.Rt(3. 41)80. If  R0(I,ll-*8*»*  *180(1,11 
pit  319.668-23L  ,1 .  Ibl  88 

KOtLll 80 .80(5, 61)80.11  R0(1.1)-*0*|*  *180(1.11 

pit  371 .660-25L  .1 .  Ibl  88 

pit  442.668-25L ,1 .Ibl  *0*,neat  L 

pit  556,710,1 i Ibl  *  Channel  Channel  Channel* 

pit  S50.683,l|lbl  *»»  Number  Name  Function* 

pit  358,665,1. Ibl  *aa  aa aaaa  aaaaaa  .  aaaaaaaa* 

for  L-l  ta  J.fad  0. str CL1 180 .80(21180 . If  L<18«*  ‘>80188 
pit  531 .660-25L  ,1 .  Ibl  88 
fad  8|Str(C(Lll)8t«lf  CTLK18.*  •180166 
pit  629.668-25L,l|lbl  88 

C0(Ll)88afar  H-l  te  lnt C3-len<80 2/2) . •  *>8018t.ncat  N 

pit  714. 660-25L.il Ibl  88 

If  J8(L.L1--D*|‘DC  V188 

if  J8(L,U-*6*i*hC  V*188 

If  J0(L.LJ-*O*i*Ohms*l88 

pit  886,660-25L.l|lbl  RO.neat  L 

fad  O.plt  548,843,1.  Ibl  ‘Temperature  Setpoint .*  >str(TI312 
mtb  •P8INTE8*.12,13.27,6» 

* RETURN*. rnt 


IN  1 1  3 


’SU8FR0&RAH.  INITIALIZATION  TILE  LIST*. 


2. 

3. 

ffrvin 

Hiller 

■ 

rile. 

.  1NI10 

■I*  $ 

4o 

December  t • .  1980 

■ 

Update 

•  December  ?  0 ,  I960 

■  *> 

5. 

Naval 

Research  Laboratory 

a 

Output 

Device*  1350 

6o 

7. 

Space 

Application*  Branch 

■ 

Select 

Coda*  718 

■I*  i 

• 

9 

JO 

11 

12 

13 

14 

15 
is 
17 
IS 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 
56 1 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
69 


■3166 


DISPLAY  ON  SCREEN* t 

rreod  TI4J.l,D0,Tin.J,H0,6 

fid  Dahdepy  0,psc  718|pclr 

set  0,2,0,20, sox  Dim  15,xox  16]iix  !9[»i  20 
yai  Oiyex  l,0,0,16iyax  2 

alb  ’SCREEN* .S.'caa.laaillaaua, . peO . a . pa287 . 967 1 a  a  * 

•lb  ’SCREEN* , "pel , a i ca • ■ a  1 x  Precision  Oscillator  Test  Tael  1  tty* ,3,10 
alb  ’SCREEN* , *peO t a apo  30 . 920 , a apel , a  a t x  Proqraaa  IHIT*,3,10 
atb  ’SCREEN* , ’peO, ■ ipa  30 ,890 ■ ■ apel . a i t x  Mrtttena  12-20-80* ,3,10 
.lb  ’SCREEN’, ’peO, a .pa  30 ,860 i a apel , a  a  * 

.lb  ’SCREEN*, *tx  Fora  Space  Applications  Branch’, 3, 10 

•tb  ’SCREEN’, ’peO. a .pa  30,830, a apel. ai* 

.lb  'SCREEN*, *ls  US  Naval  Research  Lab*, 3, 10 

alb  ’SCREEN* , *peO , i *  pa  520 ,920, ■ >pel • a  a tx  Revision  Dates  * 

art  ’SCREEN*. D»t 1 ,210*- *10*13.410*-* 100(5.61 fatb  *SCREEN*,3,10 

for  L-l  to  7  by  2,  If  HOtL  .LI- *0*  ,  *  *>H0tL,Ll 

next  L|Httl,21t*d  *lM0f3,4JI*h  *tnt(5,61l*a  * >ns(7,81 t *s* >R0 

alb  ’SCREEN*.  *peO  ,  a  apo  520 ,890,  a  apel.  a  a  lx  Heesaarenent  Intervals* 

art  * SCREEN*. Rt,atb  ‘SCREEN* .3,10 

.tb  ‘SCREEN*  ,  *peO  ,  a  apo  520 , 860 ,  a  apel,  a  a  tx  Counter  Cota  Tlaaaa  * 

fxd  0,art  ’SCREEN*  .strEOt*  asec*,atb  ‘SCREEN*  ,3.10 

.tb  'SCREEN* , *peO , a  a  pa  32 .770, a apel . a  a* 

atb  ’SCREEN*, *tx  eexa  Temperature  Control  seen*. 3. 10 

vtb  ‘SCREEN* , *pe0 , a apo  553 , 770 , a  a  pel . a  a  * 

atb  ‘SCREEN*. *tx  xsxa  Scanner  Control  loan*, 3, 10 

.tb  ‘SCREEN*. *pe0,aapa  25 .710, a apel , a  a ■ 

atb  ‘SCREEN’, *tx  Temperature  Durat Ion* ,3, 10 

atb  ’SCREEN* , *pe0 , a  a  pa  25 , 685 , a  a  pel , as  * 

atb  ‘SCREEN*. *tx  ••  Cdeq  Cl  Days  Hrs  Ntns  Secs* .3,10 

atb  ’SCREEN*. ’peO.aapa  25 ,665, a  a  pel , a  a • 

atb  'SCREEN*, *tx  ax  taaiaaaaxaa  ssea  ess  exsa  sana*,3,10 

fxd  0,for  L-t  to  Tril,str(LlJR«,R«(21>R0,lf  L<10,‘  *>R»>R0 

fxd  0,atb  -SCREEN*. "peO. a apo  25 . ’ Istr (660-25L70* , a apel . a  a tx  ’lRt.3,10 

fxd  0,str(K(Ll))R«,tf  obs(KIL13<10, *  ‘1RX1RS 

fxd  0,.tb  ‘SCREEN*, 'peO.aapa  127. * Istr (660-25L7 0* , a .pel . a  a tx  ‘IRO.3,10 
KOtL]>Rf,R0(l,2]>R0,lf  R»tl.ll-’0*,*  * >Rtf 1 .11 

fxd  0  ,atb  -SCREEN*. ‘peO.aapa  264.  *»str  <660-2500* ,  a  .pel  .  a  a  tx  *tR0.3.10 
K*CLl>R«,R«C3.4nR*,tf  R011,ll**0*»*  'IROtl.ll 

fxd  0,atb  ‘SCREEN*. *pe0,. .pa  320 , * tstr (660-2SL70* , , .pel , a  a tx  ’IRI.3,10 
KO(Ll>Rt,ROI3.61>RO,if  «(1,1I-*0’|*  *>R0fl,ll 

fxd  0,atb  ‘SCREEN*. 'peO.aapa  372 . *  Is tr (660-25L1 1* , a  a  pel , a  a tx  *100,3,10 

fxd  0,atb  'SCREEN*. *peO,a. pa  444 , * 4 s tr (660-25L1 •* , a .pel , a  a tx  0*.3.10 

next  L ,atb  ‘SCREEN* , *pe0. . ape  536.710, a .pel. so* 

atb  'SCREEN* , *lx  Chennai  Channel  Channel*. 3,10 

•tb  ‘SCREEN-, *pe0. .ape  530, 685,. apel. as*  . 

alb  ‘SCREEN*. *tx  ••  Nunber  Naaaa  Function*, 3, 10 

atb  ’SCREEN*  ,*peQ,  a  ape  530,665,  a  apel. as*  ' 

•tb  ’SCREEN*. *tx  ea  aaaia  a XX sun  xxxuxaax*  .3.10 

for  L-l  ta  J, f  xd  0,  str  CLDRO  ,R«(2I )R0 ,lf  L<10,*  ’IROIRO 

fxd  0,atb  ’SCREEN*,* peO.aapa  531 ,* Istr (660-25L70* , a apel. a atx  ’IRO.3,10 

fxd  0,strCC(L]>>RI,lf  CILK10,*  ‘IROIRO 

fxd  0 ,atb  ‘SCREEN*. ’peO.aapa  613,* Istr  C660-25L1 «*,a  a  pel, as tx  ’IRO.3,10 

C0(LUR0,for  N-l  to  Int  (5~len<R0)/2)  ,*  *iR«)RO,next  N 

fxd  0, vtb  ‘SCREEN*. ’peO.aapa  700, *lstr (660-2SL}|* , a apel , a  a tx  ’IR0,3,10 

If  JOfL.Ll**D*,*DC  V* 1R0 

l»  JOIL.LI-*A*,*AC  V*  >R0 

If  JO (L. LI* *0*,  *0has  •  >R0 

fxd  0,atb  ’SCREEN*. ’peO.aapa  879, *lstr(660-25L)i* , . .pel . a  a tx  *120,3.10 
next  L,af!le  l,vtb  ’SCREEN* , *peO , a  spa  520 .830, a .pel, a  a  * 
fxd  0,vtb  ‘SCREEN*. *lx  Tenperatore  Setpoint. *tslr(T(31) .3. 10, fish  1 
RETURN*. rat 


Program;  I  NT  0  5 


•Pl OOP AH.  TIME  INTERVAL  PLOT*. 


*■  Kevla  Millar 
•a  January  14,  1981 
•a  Naval  Research  Laboratory 
•a  Space  Applications  Branch 

sa 


File.  1NT0S 

Update,  Deceaber  28,  1980 
Output  Devlcaa  7245 
Select  Code.  705 


■GET  FILE  NAME  ANO  PIOT  INTERVAL** 
dap  'Insert  Softcopy  Graphics  Tope*tstp 
ldb  1 , dev  -PRINTER*. 706, ’PLOTTER*. 705, "CLOCK* ,9i«lt  11 
dla  r*IGl,Dtf61,T»tl4],UII71.nit40].HI2],VI2],Bttl2],£ttl21 
dla  C.D.F.G, I ,K ,L ,M,H.P,0,4>K 

*  *  IF# ieat  ’Enter  Data  File  Naee*,F0|lf  flql3,lnp  0 
asqn  Ft. 1,1, 8 

if  Q-l,dsp  Fit*  does  not  exist*, wait  1500, jap  - 2 
asqn  F$,l,l,rread  1 ,1 ,G ,N, 1 ,00 ,P 
If  NC3,dsp  -Not  Cnouqh  Data  for  Plat*,stp 
ant  "Plot  Data  (roai  nnDOHMnnsS* ,B0 
If  flql3, *0000000000*780 

If  lrnCBf ) ri 0 i dap  -Not  in  Proper  Fora*i*ait  1500, jap  -2 
ent  "Plot  Oata  toi  MMDDHHMMSS* ,E0 
If  f lql3,*9999999999*7E0 

if  1 en(E 1 7 rl D i dsp  "Not  in  Proper  Fera*, uait  1500 i jap  -1 

-CALCULATE  UNITS  FOR  AXES** 
rread  t  .K-11K.T0  ,Ciif  TICBI,lsi*  • 

-TlME-)Htll,C)Vtll»VI21,l>F 
far  L-K-l  ta  M 

rread  l,L.TI,C«tf  TI>E»,jap  4 
If  C<V(11|C>V(11 
If  C>VI2I,C7V(21 
F*17F,neet  L 

rread  1 ,L- 1 ,T0 , *T IME' )Ht 21 

if  HI21-H111 >86399 1 ’DAYS * 1U0  * 864 00 ID*  j no  4 
if  HI  2 1  -  HI  1 1 >3599 1 -HOURS  *  7UI  , 3600  ID* ] no  3 
if  H12I-HI1 1 >59 * "MI NUTES *7UI,60)D,j ap  2 
’SECONDS’ 7 VI, 170 

DlntCHtll/OllHI ll,DintCHI2]/0-177HI2] 
DtI1.21»*--ID4I3.41**--»DI!S.617TI,4>E 

-INITIALIZE  PLOT  AREA** 

fed  Oihdcpy  lipac  70Sisel  -7. 125,0,0, 18. $,plt  0,0,1 

pit  -.7S.S,2iplt  -.75, 10. 4, pit  0,10. 4, pit  0.0, pit  -5/16.0, pit  -5/16,10.4 
far  L-1.5  la  9  by  l.S,plt  -3/4,L,liplt  O.L.Zinext  L,cs,z  1.5.2,1.90 
pit  -7.5/16,-67,1 , lbl  *0ate* ,plt  -1/16, . 5 , 1 , Ibl  TO 

pit  -7.5/16.2,1*161  -Proqraa* iplt  -1/16.1.55.1,161  -Tiaa  Interval  Plot* 
pit  -9/16. 3. 4.1, lbl  *0ata  File*, pit  -5.5/ 16.3.6,1 ,  lbl  -Naae* 
pit  -1/16. 3.52.1, lbl  FO 

pit  -9/16,5. 05. l,lbl  ’Points', pit  -5. 5/16,5,1, lbl  'Flatted* 
pit  -1/16.5.1.1, lbl  strCF) 

pit  -7.5/16.6.4.1,lbl  'Frequency*, pit  -1/16,6.35.1 
fed  2, lbl  slrtl/Pela-670*  MMe* 

pit  -9/16.7.9,1 , lbl  *Neasureacat*iplt  -5. 5/16,8.1, lbl  "Interval* 
pit  -1/16, 7. 9.1, fed  0 , lbl  strEIIO*  sees* 

pit  -9/16,9. 25.1 , lbl  ‘Counter  Gate*, pit  -5. 5/16. 9. 6,1, lbl  *Tla«* 

pit  -1/16, 9.35,1, fed  0,lbl  str(G7«*  asec’iplt  -1.375,10.4,1 

pit  -7. 125, 10. 4, 2, pit  -7. 125,1, pit  -1.375, I, pit  -1.375,10. 4, fit  9 

eel  VI 21 ,1.23913V! 11- .23913VI 21 fHllJ-<HI21-HllJ7/5.4 ,HI 21- (HI21 -HI 117/94 

“LABEL  AXES** 

far  L*Vlll*<CVI21 -V1117/107C7  to  VI27-C  by  C,plt  L.HI21.1 
pit  L.H(21-<HI2]-H!117/100,2,nezt  L 

for  L-HI21-D  ta  HI11-0  by  -D,plt  VI21.L.l,plt  VI21-C/7.L ,2, neat  L 
cate  1,2, 1.90, far  L-VI21  ta  VIII  by  -C,plt  L-C/10 , NI 1 1- CH121-HI 1 1 7/17,1 
tf  le9L>  1 00 , f  ed  2,  Ibl  itrlLHeSI  ,qta  *3 
tf  le9L> 1 0, f xd  2, lbl  *  • ietr <L«le97 ,qta  *2 
fzd  2, lbl  *  *  Is tr  CLale97 

tf  Lrvill  or  LrVI 21 ,pl t  L, Hill, 1, pit  L.HI  1) ♦ INI 21-NI 1 77 /100.2 
next  L,csie  1.5,2, 1 ,180 , pi t  VI 1 7-2. 51C ,HI 1 1- CHI 2I-HI 1 17/12,1 
lbl  *Ttae  Interval  A  ta  B  tn  nanoseconds’ ,cslx  1,2,1,90 
for  L-HI11  ta  HI21  by  D,tf  L-Vlll  or  L-VI21,jap  2 
pit  Vtll*C/7.L,l,plt  VI 1) ,L , 2 ,plt  VI ll-C/2. 4, L-CHI21-HI 117/100,1 
L>Q,for  M-l  ta  12 

If  not  01*1  or  N-3  or  M-5  or  H-7  or  M-8  or  M-10  or  n*127,]ep  3 
If  B-2764800<0 iqto  -PRINT* 

Q-267840070 

If  net  CH-4  or  N*6  or  M»9  or  N*117,lap  3 
if  Q-2678400CO ,qto  "PRINT* 

0-259200078 

If  not  N*2, J  ap  3 

If  Q-2S 0560010, gte  ’PRINT* 

0-241920018 
neat  N 

•PRINT*. tf  D-86400,fxd  0,lbl  str(Q/D> 
tf  0*3600, fid  0 , lbl  atrCCQ-864001nt  CQ/ 684 007 7/01 


s  -'n  *  .7  .**  .N  ^  'n  -■W'b’Si  J 


87a  If  D-60,fid  Oilbl  i tr < <0- 3000: nt < 0/ 3COO> >/0> 

BBi  If  D*l,fad  Silbl  •  tr(<O-C0,nt<Q/C,0))/O> 

B9.  mil  L.c»»t  1.5. 2. I, 90, pit  Vtl)-.81C,Htl)*(HI2)-Hll))/3,l 

90.  If  BI-*OOOOOOOOO0*,|ap  2 

91.  Bit  I  .714*- •  *81  13.41  4*  •  «Blt5  .6)1*  .  •  |BII7,B)I*  i  'IBII9. 10  I  >HI  i  |-p  t 

9?  a  rr rad  1 , 5 . T 1 , T  111 . 2 II • - ■ IT  1 I 3 , 4 ) I •  *  IT  1 15 ,6 1 4* i *  It  1 1  7 ,8J I • . • 1 1 1 1 9. 1 0 1 >H4 

93.  Ibl  •Tim  la  *IUI!#  beeinninp  'ml 

94a 

95.  "PLOT  DATA* a 

96a  r  r  rad  1 .It* 1 >B . Tl ,C a  If  T»<BI,|a*  8 

97.  pit  C,'TIHE#,l|cplt  -.33,-.15(lbl  'o'lepll  -.67, .IS 

98.  far  L-K*l  ta  Nirread  I.L.TI.Cilf  TI>CI,)ap  2 

99.  pit  C,  *T  1142*  ,2  ,  neat  t 

100.  penacplt  -.33.- . IS, lbl  *a*,atb  “PRIHTCR* ,12,13,27 ,68 
10ta  end 

102a 

103a  *TIf4£*a 

104a  0)0, far  M-l  ta  val (Tit  1 ,217-1 

1 05a  If  14*1  or  H*3  or  MS  or  14*7  or  M-8  or  M-10  ar  .  *12, 0*2678400)0, jap  3 
106a  If  H-4  or  14*6  or  H-9  or  M-ll ,0.2592000)0, )ap  2 
107a  If  M* 2,0*2419200)8 
106a  neat  H 

109.  0*66400 val (Tit 3. 4 1) *3600va 1 ITI 15,617)8 
110a  ret  0*60va 1 ( T 1 1 7 , 8) ) • val ( T 1 1 9 , 1 0 ) > 

a26884 


9.8  .  Program:  INT18 


0.  ‘PROGRAM*  TIME  INTERVAL  PLOT** 
1* 


3*  *■  Kevin  Hi  I ler 

4*  *■  January  14.  1900 

5*  *■  Hnvnl  Research  Laboratory 

6*  *•  Soace  Applications  Branch 


Flic*  IHT10 

Update*  Daceabar  20,  I960 
Output  Device*  1330 
Select  Code*  710 


9*  ‘GET  FILE  NAMC  AND  PLOT  INTERVAL** 

10*  dsp  ‘Insert  Softcopy  Graphics  Tape*istO 
11*  ldb  1 1  dev  'CLOCK*  , 9,f It  It 

12*  dim  rtl6).0$ie),Tt(14I.Ut(7],nt(40I.Ht2].Vt2],Blll2),E«tl21 
13*  dim  C.D.F.G.I  ,K.L,M,H,P,Q,4)C 

14*  “irtient  ‘Enter  Data  Flic  Marne*. rt|tf  flqlSijmp  0 
15i  as*)*  Ft,  1,1,0 

IS*  If  Q-lidap  FS1*  does  not  exist*  ivalt  1500 ,| op  -2 

17»  asqn  Ft, 1,1, rread  1 , 1 ,G ,N, 1 .04 ,P 

10*  If  Nf3,dsp  ‘Not  Enouqh  Data  for  Plot'istp 

19*  cat  ‘Plot  Data  from*  IWDDHHIKISS  ‘  ,80 

20*  If  flql3t’0000000000*)00 

21*  If  lenlBOrlO  i  dap  ‘Not  In  Proper  rorm'ivelt  1500  ij  up  -2 
22*  ent  ‘Plot  Data  la.  WlOOHHimSS*  .CO 
23.  if  f  lql3* ‘9999999999*  >€0 

24*  If  len<Cl)/10,dsp  ‘Not  la  Proper  rorm*|velt  1500 .Jmp  -2 
2S* 

26.  ‘CALCULATE  UNITS  FOR  AXES** 

27*  rread  1  ,K‘l IK.T* ,Ct »f  T*<Btilmp  0 

20*  ‘DATE'IHdl.dVll  ]>V(21|1>F 

29*  far  L-K«t  ta  N 

30*  rread  l.L.TS.Ciif  Tt>C0,)mp  4 

31.  If  C<V(11|C)V(1J 

32*  If  C>V(2)|C)V(21 

33*  F*  1  >F  i next  L 

34.  rread  l.L-l.Tt, *0ATE*)Ht2J 

35*  If  HI21-HI11  >86399*  ‘DAYS*  1U4  1 064 00 10 1  Imp  4 

36*  If  H(23~Hfl  ]  >3599  *  ‘HOURS*  1U4 1 3600  ID|  |  mp  3 

37*  If  HI 23 -HI  11  >39*  ‘MINUTES* >Ut  1 60 >0| Imp  2 

30.  ‘SECONDS* )US, 1)0 

39.  Dlnt(HI13/D3)H[13|Dlnt  01(23/0*1)  >HK2) 

40*  13H|lf  <(H(2]-HIl))/O>R)>30,2)M,lf  lnt<R/2)'R/2,H(2]«D>HI2) 

41.  wrt  ‘CLOCK*.  *R*  trad  ‘CLOCK*  ,T1$4)K 

43.  'INITIALIZE  PLOT  ARE**. 

44.  fxd  Oihdcpy  0 |psc  71Bipclr,scl  0.10.3,0,7. 123, pit  0,0.1 

43*  pit  0.. 73. 2, pit  10.4 ,«  73*pli  10.4,0*pll  0.0, p^t  0.3/16,1, pit  10.4,3/16.2 
46*  for  L-1.3  ta  9  by  l.Siplt  L,.73.1iplt  L,0,2inext  Licit  1.3, 2,1 

47.  pit  .53.9/16.1,161  'Date*, pit  .3.3.7/16.1 , lbl  'Today* 

48.  pit  .21. 1/11.1, lbl  Ttll.214*-'»T«l4,31«'-‘»'80* 

49.  pit  1.03,7. 3/ 16.1  * lbl  ’Program* 1 pit  1,6.1/11 ,1 , lbl  *Tt  Int  Piet* 

30.  pit  3.23. 9/16, 1, lbl  'Data  Flle'iplt  3.57.3. 7/16.1 | lbl  ‘Name* 

31.  pit  3.4. 1/11.1, lbl  F0 

32.  pit  4. 80.9/16.1, lbl  ‘Points*, pit  4. 83.5.7/16.1, lbl  'Plotted* 

33.  pit  4.93. 1/11.1, lbl  sir <F)0*  *  , 

34.  pit  6. 2,7.3/16.1 , lbl  'Frequency' ,plt  6.13,1/11.2  - 
S3,  fxd  2, lbl  slr<l/peie-6)0*  MHx* 

56.  pit  7.6.9/16.1, lbl  ’Mcaaureaant*,plt  7.9,3. 7/16,1 , lbl  'Interval* 

37.  pit  7.6,1/ 11 ,1 , f xd  0 , lbl  si rt»0'  seca  * 

58.  pit  9. 43, 9/16.1, lbl  '6ate',pll  9. 45,3.7/16, 1 , lbl  'Time* 

39,  pit  9.1, 1/11. l,fxd  0, lbl  strCGlt*  msec  *,plt  10.4,1.373,1 

60.  pit  10.4.7.123.2,pl1  1.7.123,plt  1,1. 373, pit  10. 4 , 1 .373, fit  9 

61.  set  HI1)-(H(2]-H(1))/9.4,H(21-(HI21-H(11)/94,1.23913V(1)-.  23913VI21  ,V(2J 
62a 

63.  *LABCl  AXES*. 

64.  for  L-V(1)«((V(2)-V(113/10>C)  ta  V121-C  by  C,plt  H(21,L.l 
63.  pit  H(2]-CH(2)-H(ll>/100,L,2,next  L 

66.  for  L-H121-MD  to  HIU-MD  by  -ND,plt  L.V(21,liplt  L  ,  VI 2) -C/7, 2,  next  L 

67.  cslx  .7, 2,1, far  L-VI2)  to  Vt!)  by  -C,plt  HI 11 - CHI21 -HI 1 )>/12,L-C/10,l 

68.  if  le9L>100,fxd  1 ,  lbl  atr(Lxlc9)  ,«,ta  *3 

69.  If  le9L>10,fxd  1 , lbl  *  'lstr(Lale9)t*  'i9ta  *2 

70.  fxd  1 , lbl  *  •  (str (L>le9) 

71.  if  L/Vtll  and  L'V(21,plt  HIll.L.lipIt  HI 11‘ IHl 21 -HI  1 1 ) /100.L.2 

72.  next  Licslx  1.3,2, 1.90, pit  HU  1- (HI21-HI1  I1/12.VI  1  )*2.1C.l 

73.  lbl  'Time  Interval  0  to  8  la  nanoseconds* , cslx  .7,2,1 

74.  far  L-Hll 1  to  H121  by  HO, If  L-HU1  or  L-H(2)|Jmp  2 
73.  pit  L,VtH'C/7,l ,pl  1  L ,V[  11 ,2 

76.  pit  L-(HI2)-H(  1D/50 ,V( 11-. 33C ,1 ,L)Q,f or  M-l  to  12 

77.  If  net  CM-1  or  H-3  or  M-5  or  N-7  or  H-8  or  N>10  or  H-12),)mp  3 

78.  If  8-276480040 ,9 to' ‘PRINT* 

79.  0-2678400)0 

80.  If  not  H4-4  or  11-6  or  H-9  or  H-ll)|jmp  3 

81.  If  0-2678400<0|9to  ‘PRINT* 

02.  0-2392000)8 

83.  If  not  n-2ilmp  3 

84.  If  Q- 250560040 ,9 to  ‘PRINT* 

83.  0-2419200)0 

86.  next  W 


o.i 


•  -■*  m  o’*  .*  , 

.  1  a  *.  b.  \  m-l  m  I  . 


>7.  TtlNT'.ll  D-&fc<08,fad  Oilbl  otrfQ/O) 

88 1  1«  D- 3G00  i  f  ad  Oilbl  a  l  r  (  (  0  -  804  0  0  I  "t  <  0/804  0  0  )  ) /D> 

89i  If  0-60, fad  Oilbl  atrC(0-3600lnt<0/3COO)>/01 
90 1  If  0*1  *  f  «d  Oilbl  •tr<(0-60lnl(0/C8))/0> 

91 1  ant  licit  1.5, 2.1, pit  Ht  1 1  ♦  041  2  1  -Ml  1 1 ) /«  .  *  .Vttl- .  85C  .1 
92 1  If  8I**0000000000* i )oip  2 

93 1  8011. 2II*-*IB4I3, 414*  •lBft5.61i*a*480l7,81**i*lB4l9.101)f44,)»p  2 

94 1  mad  l.S.TO|70ll.2]Oa-'tTlt3,4Ii»  *  4  T  0 15  .61  *•  .  *  07  •  I  7 .81  i*  a  *  II 0  1 9,  1 0  1  >M 

95a  lbl  *Tl«*  la  •  4U04*  brqinnliaao  ‘IMM*  * 

96  a 

97a  ‘PLOT  0AT8* a 

98a  rreid  1 ,*• 1 1* . TO ,C • If  TI<B»i)aap  • 

99a  pit  *OATC',C.l,epll  - .33,-.15| lbl  ,«,icoll  -.67. .15 
100a  far  L*2*l  ta  Nirreod  l.L.TI.Cilf  Tl>t»,)-p  2 
101a  pit  'DATE'  ,C.2me*t  L 
102a  penicplt  - . 33, - . 1S| lbl  *•’ 

103a  cod 
104a 

105a  *0*TC*a 

106a  OlQifer  11*1  to  val <Tt( 1 ,217-1 

107a  If  1-1  ar  H-3  ar  14*5  or  14*7  ar  M-B  or  04*10  er  *4-12 18*2678400)8| )*p  3 
108a  If  14*4  or  14-6  or  14*9  or  14*1 1 1 0*259200018) lap  2 
109a  If  14-2ifl*2419200>8 
110a  next  N 

Ilia  Q<86400val C7013, 417*  36  00  va  10415, 61778 
112a  ret  Q*60valOOt7,817*valO8(9,lQ]3 
■31808 


Progr am 


t  ^4, 


•subprograh.  Tine  interval  plot** 


Kevin  HI  liar 
Auqust  10,  190* 

Naval  Research  Laboratory 
Space  Applications  Branch 


rilei  .INTOS 

Update*  Deccabcr  II,  199$ 
Output  Device*  7245 
Select  Code*  70S 


•CALCULATE  UNITS  FOR  AXES** 

If  K>2*)**a  9 

ape  3*prt  •Nat  Enouqh  Dais', 'Vet  to  da  T1HC* 

prl  'INTERVAL  Piet. 'tape  3,qla  'RETURN* 

rread  l.S.RO.R 

•DATEMHltl  ,R>Vtll>VIZl 

for  L*t  ta  K-11Z 

rread  l.L-4,Rt,R 

If  R<VI1],R>VI11 

If  R7VI21 , R1V123 

neat  L, 'DATE' 1HIZ) 

If  Hf21-HIl]>86399,*OAVS'}Ut|86400}DiJap  4 
If  HC21-HI1 173599* 'HOURS' ]UI,360010ilap  3 
If  HI21-HK1»39|  "MINUTES'  >Ut  *60  ID, lap  2 
'SECONDS* >U$ i t>» 

Dlnt(HIl)/0]}Hlll,Dlnt(Hl2)/D«l})H(Z] 

0»C1,Z1«'- '$00(3. 41*'- '*0015.61168 

•INITIALIZE  PLOT  AREA** 

fed  0*hdcpy  l*psc  705,pclr,scl  -7. 125 , 0, 0 ,10.S,plt  0,0.1 
pit  -.7S.0,2*plt  -.73, 10. A, pit  0,10.*, pit  O.Oiplt  -S/16.0iplt  -5/16.10.4 
for  L-t.5  ta  9  by  l.Siplt  -3/4,L.liplt  0,L,2*next  L.cali  1.5.2.1.90 
pit  -7.5/16, .67,1  * lbl  'Date *  * p 1 1  -1/16, .5 ,1  * Ibl  RO 

pit  -7. 5/ 16. 2.1  * Ibl  'Proqraa' iplt  - 1/ 1 6 , 1 . 55 . 1 » lbl  'Tine  Interval  Plat* 
pit  -9/16, 3.4,1,1b!  'Data  Tllc'ipM  -5. S/16,3. 6,1 , lbl  'Nona* 
pit  -1/16.3. 52,1  * lbl  Ft 

pit  -9/16,3. 05. ltlbl  'Points', pit  -5.5/16,5,1  * lbl  'Platted* 
pit  -l/16,S.l.l|fzd  0 * lbl  atr<23 

pit  -7. 3/16. 6. 4.1, lbl  'Frequency' , pi t  -1/16.6.35.1 
fed  2, lbl  atr(l/Paie-6)*'  HHe* 

pit  -9/16.7.9,1  * lbl  'Measureaent ' ,plt  -3.5/16,6, 1 , lbl  ‘Interval* 
pit  -l/16.7.9.1|fad  0 ,  lbl  strfllO'  aeca* 

pit  -9/16. 9. 25,1  * lbl  'Counter  Cate', pit  -5. 3/16. 9.6.1, lbl  'Tlaa* 

pit  -1/16. 9.35.1, fed  0,lbl  strCGlt'  aaec'  ,plr  -1.375.10.4,1 

pit  -7. 123. 10. 4. 2, pit  -7. 125,1, pit  -1.375.1, pit  -1.375 ,10. 4, fit  9 

sel  VI 21 ,1 . 2 3913V 1 11- . 23913V121 ,HIll-CHC21-Httll/9. 4,HI21'<HI21-Hll 11/94 

•LABEL  AXES*. 

for  L-Vfl]«<CVtZl-VIlll/101R]  to  VIZI-6  by  R,plt  L.HI21.1 
pit  L.H121 -CHI 21-HI 111/100, 2, naet  L 

far  L-NI21-6  ta  Hlll'O  by  -0,plt  V121.L.l,plt  VI21-R/7.L  .2 ,  neet  L 
cals  1,2.1 ,90*fer  L-VI21  to  Vlll  by  -Riplt  L-R/18. HI 11-CH121-HI 1 11/17.1 
If  la9L>100|f  ed  2, lbl  slrELRleSl  ,qla  ♦»  • 

If  le9L>10 , fed  2, lbl  *  '*strCLel«9> ,9ta  *t 
fed  2,1b!  *  'latrELeleSJ 

tf  LrVIll  or  L«V(21,plt  L. Hill, 1, pit  L,HI1}*(HI21-HI111/100,Z 
neet  L,cste  1. 5,2,1 ,180,plt  VI 11 .2.51R .HI 11 -<Ht 21-HI 1 11/12.1 
lbl  'Tlaa  Interval  A  to  B  la  nanoseconds* >elll  1,2,1,96 
for  L-Htll  to  HI21  by  D,tf  L-Vtll  or  L-VI21,Jap  t 
pit  V(ll«R/7.L.l,plt  VII] ,L,2*plt  V(11-R/2.4,L-(HI2I-HI11>/100,1 
L>X,f or  H-l  ta  It 

tf  not  <N-1  or  H-3  or  H-3  or  H-7  or  H-B  or  H-I0  or  N-127 , Jap  3 
If  X-2764800<0 into  * PRINT" 

X-267B4001R 

If  aat  EH-4  or  N-6  or  H*9  or  H-lllilap  3 
If  X-267B400<6|9ta  'PRINT* 

X-2S 9200011 

If  not  H-2,jap  3 

If  X-2303600<8,«te  'PRINT* 

X-24192001X 
naet  N 

'PRINT*, tf  0-8640t|fed  0,lbl  atr(X/0} 
tf  0*3600, fed  0,lbl  strC(X-86400lnt CX/8640011/01 
tf  0-60, fed  0|lbl  strt (X-3600lnt (X/360011/O1 
if  0-1 tfsd  0,lbl  str (CX-60lnt(X/60)>/0> 

next  Licsll  1.5,2.1,90 iplt  VI 1 1-. 81R .HI 1 !♦ (HI 21-HI 1 11/3.1 

rread  1 ,5,R* ,R*I1 ,21 »'- • *RtI3,4 1»*  ' tR«t5.61** . '»R*17.81*' . 'tROIS.lOllNO 

**•1  'Tlaa  la  '*Ut*'-  beqlnnlnq  '»H9 

-0T  DATA*, 
rread  l.S.RO.R 

pit  R,*0ATE',l,cplt  -.33.-. IS, lbl  *o*,cplt  -.67, .15 

far  L-Z  to  Z 

rreod. 1,L'4,R0,R  .  . 

pit  R.'OATC'.Z 

nest  L 

cplt  -.33,-. 13, Ibl  'a* 
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‘SUBPROGRAM,  TIME  INTERVAL  PLOT*! 


a  (I>|>  Oilltr  a  nil,  .1HT13  a* 

a  December  19.  1989  a  Updelei  December  29,  1989  a* 

■  Newel  ReeeercN  Laboratory  a  Output  Dewicai  1359  a* 

■  Space  Application*  Branch  a  Select  Coder  713  *■ 


‘CALCULATE  UNITS  FOR  AXES* • 
hdepy  Oipec  718|flt  11 

0>R>L>Z>0>mHll)>H(21)Vll])VI2],if  02,l»p  3 

»pc  3iprt  ‘Nat  Enouqh  Date*, ‘Vet  te  do  T  I  rtC  *  ,  •  INTERVAL  Plet.*i>pc  3 
Ate  ‘RETURN* 

rread  1 .3 , R» ,R | * DATE ' > Ml 1 J ,R >  VI 1 1 )  VC  21 
fer  L-2  ta  K-DZ, rread  l,L‘4,Rt,8 
tf  R<VI1]|R>V(U 
If  R>Vf 21 iR>VI2) 
neat  L i 'DATE ' >MI 21 

tf  HC21-HI1 1 >86399 1 ‘DAVS* 1 UO , 864  00  ID, Jap  4 
If  HC21-HC1 I >3599 i ‘HOURS *)U4, 3600)0, )ap  3 
if  HC21-HI1I759, ‘NINUTES'lUO |60 ID| | e#  2 
‘SEC0H0S‘>Ui|118 

OlettHIl 1/01 )Nll)|Dint(MC21/D«l>>M(21 

l)W,lf  (CHI21-H(l])/D>R)>30|2IM|if  i nl CR/ 27 #R/2 , HI  2 J "OIHIRI 

L 

■INITIALIZE  plot  area*> 

fad  9tpclr teal  9 , 19 .5 .9 , 7. 123 ipl 1  9,9.1 

pit  9,.7S,2iplt  10. 4. .73, pit  10. 4.0, pit  B.Biplt  0.3/16.1, pit  19. 4. S/16. 2 

fer  L-t.S  ta  9  by  1.5, pit  L..73,lipll  L. 0.2, neat  Licelz  1.5, 2.1 

pit  .55,9/16.1 i lbl  ‘Date* ,pl 1  .5 .5. 7/16 . 1 , Ibl  ‘Today* 

pit  . 21,l/ll,lilbl  D9C1.2]l*-*lDtl4,S10*-*4001S,614*  * 

pit  1.83.7.5/16.1 , lbl  ‘Proarae* iplt  1 . 6. 1/1 1 . 1 , Ibl  ‘Tl  let  Piet* 

pit  3.23,9/16,l|lbi  ‘Data  Tile*, pit  3. 57 .3. 7/16. 1 , lbl  *Naee* 

pit  3.4, 1/11. l(lbl  ro»*  • 

pit  4. 88,9/16. 1 1 lbl  ‘Pot ats* ipl t  4 . 33.3. 7/16, 1 , 1 bl  ‘Plotted* 

fad  Oiplt  4. 93. 1/11. If lbl  *tr<Z)4*  * 

pit  6.2. 7. 3/16.1, lbl  ‘Frequency* , pit  3.13,1/11,1 

fad  2, lbl  atrCl/ Pete* 6)4*  NNa* 

pit  7.6. 9/16.1, lbl  -ncaeurcaeet* iplt  7.8.3.7/16.1,131  ‘Interval* 

pit  7. 6. 1/11.1, fad  9, lbl  atr<l)4*  *eca  * 

pit  9. 43. 9/16.1, lbl  ‘Cate* iplt  9.43.3.7/16.1,131  ‘Tlee* 

pit  9.1. 1/11.1, fad  0, lbl  itr<6)4‘  asac  *,plt  19.4.1.373.1 

pit  19.4.7. 123. 2,plt  1.7. 123, pit  1.1. 373, pit  1«.*4. 1.373, fit  9 

acl  HU)-(H(21-Ht  117/9. 4,H121*4MI21-H1  117/94 , 1. 23913VI 11- . 23913VI2)  ,VC2) 

•LABEL  AXES*. 

far  L-Vt  1  J*4CVt  2  J-VI 117/10787  ta  VI21-R  by  R,plt  H121.L.1 
pit  H12]-(M(2]-Hlll)/199.L.2,nest  L 

far  L-HI21-MO  ta  HCll'tO  by  -HD, pit  L, VIZ), 1, pit  L  .VI27 -R/7,2,  neat  L 
eata  .7. 2.1, for  L-V121  ta  Vtll  by  -Rtplt  HI 1 1- CHC21-MC 1 17/12, L-R/18,1 
If  lc9L7109,f ad  1,131  atr CLate97 , ate  *3 
If  la9L>19,fad  1,131  *  *0atr(Ldla974*  *,9ta  *2 
fad  1,131  *  • la tr (LaleS) 

tf  LRVltl  and  LPV(21,plt  Hill, L.l, pit  HI 1 1 • CHI  2 1-Hl 1 17 / 1 00  ,L,2 
neat  L,cata  1.3. 2,1 .99, pit  Hill- (HI 2] -HI 117/12, VI  11*2. 18, t 
lbl  *Tlaa  latcrval  A  ta  8  la  nanosecond*" ,cata  .7,2,1 
far  L-H(»  ta  HI2I  by  MO, if  L-Htll  or  L*H(2),]ap  2 
pit  L.VIll-R/7,1  ,plt  L.VU1.2 

Pit  L-<H(2]-Hll]7/50,V(tl-. 352.1,02, for  H-l  ta  12 

If  net  114*1  or  14-3  or  14-5  or  N*7  or  H-8  or  14-19  or  H-127,lap  3 

If  2-2764809<0,qto  ‘PRINT* 

2-267840972 

if  net  CI4-4  or  H-6  or  H-9  or  N-117,lap  3 
if  2-267840940, qta  'PRINT* 

2-239200072 

if  net  N-2,)ap  3 

if  2-230560040, At a  ‘PRINT* 

2-241920972 
neat  N 

•PRINT*. if  D-86400,fad  0,131  atr(2/D7 

if  D-3600,fad  0,131  xtr(CX-864991nlC2/8640077/O> 

if  D-69,f ad  0,131  *tr<(X-3600int(2/360077/D>' 

if  D-l,f ad  9, lbl  atr(C2-60int (2/6077/D7 

neat  L,c*it  1.3, 2.1, pit  HI 11* CHI21-HI 1 17/4. 2 .VI 11-. 8SR.1 

rread  1.S.R0 ,R0(1 >21«*-*1R*(3,4 li*  ‘lR»t3.6l4*,‘iR9C7.814‘.‘iR0I9.1017N9 

lbl  *Tla«  ta  *41)94*  bealnnlna  ‘4H94*  * 

•PLOT  DATA*, 
rread  1,S,R9,8 

pit  *0ATC* ,R ,1 ,cplt  -.33.-. 15, lbl  *o*,cplt  -.67.. IS 
far  L*2  to  Z, rread  1,L*4,R4,8 
pit  'DATE* .8.2, neat  L 
pemcplL  -.33,-. IS, lbl  *a* 

‘RETURN*. rat 

*0ATE*e 


■.  ■r. 


9.11  Program:  PHAO  5 


Oi  ‘PROGRAMi  CUMULATIVE  PHASE  MINUS  LINEAR  OfTSEl  PLOT*. 

t. 


*  Kevin  Millar 

■  July  14.  199* 

■  Naval  Research  Laboratory 
>  Space  Applications  Branch 


rila.  PHAOS 
Update.  July  14.  1982 
Output  Devicat  7*45 
Select  Code.  705 


•GET  FILE  NAME  AHO  PLOT  INTERVAL*, 
dap  ‘Insert  Softcopy  Graphics  Tape'istp 
ldb  l.dev  ‘PRINTER*. 706, ■PLOTTER*. 705, ‘CLOCK*. B.flt  11 
dla  rtf61. 04161, T4C14],UIC71,MIM01,HI2],Btll01,EtCll] 
die  C.D.F.G.l ,K.L.M,K.P.Q.V|4>K 

••JFt.eat  ‘Enter  Oata  File  Nauc'.Ft.lf  flql3ijup  B 
•spa  Ft, 1,1, B 

If  Q-l.dsp  Fit*  does  not  eclat*. vatt  tSOO.Jup  -* 
as.a  Ft , 1 , 1 | r  r  ead  1 . 1 , G , N , 1 , 01 ,P 
if  N<3.dap  ‘Not  E nouqh  Data  for  Plot*|Stp 
ant  ‘Plot  Oata  troa.  MM0DHHMMSS* ,B0 
if  fl<|13|  *0000000000*180 

If  lenlBtXlO.dsp  ‘Not  in  Proper  Foru'jualt  lSOOijap  -8 
ent  ‘Plot  Oata  ta.  nnODMHmSS"  ,E0 
If  flpl3,  ‘9999999993*  1E0 

if  lea<EI>P10|dsp  ‘Nat  in  Proper  Fara'iveit  lSOOijap  -* 

V  \ 

‘CALCULATE  UNITS  FOR  AXES*. 

OlUlZ.rread  1 ,K‘l»K.Tt .R, if  Tt<Bt|Jup  8 

•TlMEMNt  lDA.RlX.for  L-K‘I  ta  N|R)Sirread  l,L.Tt,R|lf  Tt>Et|]np  4 
if  R-S>.5P,Z-I>Z.lnp  2 
if  S-R7.5P,Z‘17Z 
neat  L 

If  LrN.L- 1>N 

‘TIHC*IH(2])B,R-X*ZPIV|X7R,for  L-K-l  to  N|RlS|rread  l.L.Tt.R 
if  R-S>.SP.M-llM,jup  2 
if  S-R7.5P,M*t7N 

R-X'MP-V<'TlHC*-Htlll/CH(2]-H(1177C,if  abs(C7>Viabs(CHV 
neat  L.N-KtF 

If  H121-HI1 1786399. ’DAYS*lUf |864007D|jap  4 
if  N121-HI 1173599. ‘HOURS ‘>Ut, 3600 >0|) up  3 
if  Nt21-Hlll 759. ‘MINUTES* 1U0 ,60)0, J up  2 
‘SECONDS*  >U0 1 1>8 

DlntCHCll/DllHtll.OlntCHt  2 1/0* 17  INI 21 
0011. 210*-* tDt (3. 410*- *40t (S.611T0  4« 

‘INITIALIZE  PLOT  AREA*. 

fad  O.hdcpy  1 . pi.  705, scl  -7. 125 . 0 . 0 , 10. 5 .pit  8,0.1 

pit  -.75, 0,2, pit  -.75.10. 4, pit  0,10. 4, pit  O.B.plt  -5/16,0, pit  -S/16.10.4 
far  L*l-3  to  9  by  l.Siplt  -3/4,L,l.plt  O.L.Z.neat  L.csla  1.5,2.1,90 
pit  -7.5/16.. 67. l.lbl  ‘Data* .pit  -1/16 . .5,1 . lbl  TO 

pit  -7.5/16.2,1 1  lbl  'Proqroa'iplt  -1/16, 1.55.1 ,  lbl  *  Cuaalattve  Phase  * 
pit  -9/16. 3.4.1, lbl  ’Data  rile*, pit  -5. 5/16.3.6.1, lbl  *Nn-e* 
pit  -1/16. 3.52. l,lbl  «  • 

pit  -9/16.5. 05. l,lbl  ‘Points*, pit  -5. 5/16.5.1, lbl  ‘Flatted* 

pit  -1/16. 5.1.1, lbl  ilrin 

pit  -7.5/16. 6.4.1,1b!  'Frequency* , pit  -1/16,6.35.1 
fad  2, lbl  str(l/Pnle-630*  MHa  ■ 

pit  -9/16, 7. 9.1, lbl  'Measurement*, pit  -5. 5/16, 9.1, lbl  ‘Interval* 
pit  -1/16, 7. 9.1, fed  0, lbl  strlllt*  sees* 

pit  -9/16, 9.25, l,lbl  ‘Counter  Gatc*,plt  -5. 5/16, 9.6.1, lbl  *Tlaa* 
pit  -1/16, 9. 35.1, fad  t,lbl  strCGJt*  nsec*, pit  -1.375,10.4,1 
pit  -7.125. 10. 4. 2, pit  -7. 125,1 ,plt  -1.373,1, pit  -1.375,10.4 
pit  -4. 23. 1.1,  pit  -4. 23, 10. 4, 2, fit  9,  10*tnt  CleqCVmV 
sal  10V.-14. 78261V, HI 11-<HI2)-H( 117/9. 4, H(2!*(Hl21-H(ll)/94 

‘LABEL  AXES*! 

far  L— 9V  to  9V  by  V,lf  L/Oiplt  L,H(21,l,plt  L .HI21- (HI21 -HI  1 17/100.2 
neat  L 

for  L-HI21-D  to  Htll‘D  by  -D,plt  lOV.L.liplt  9. 7V.L.2,ncat  L 

csts  1.2.1.90,  for  L*10V  la  -10V  by  -V,plt  L- .  25V,  HI  11  -  (HI  21  -HI  1 17/23,1 

If  L/V<8  and  L/V/-10,fcd  l,lbl  •  • tstr (L/V7 ,]ap  3 

If  L/V-10  ar  L/V— 10, fad  l,lbl  str<L/V7,jnp  2 

fad  l,lbl  *  *tatr(L/V> 

If  L/IOV  and  La-lOV  and  L'Oiplt  L. Hill, 1, pit  L.HI11*(H(21-H(117/100,2 
aaat  Etcsla  1.3, 2, 1,180, pit  -6V,HI1]-(H(2]-H(117/13,1 
lbl  ‘Phase  Mtnns  Linear  Offset  (la  secs!  s  10* 

lplt  . 2V, (HI 1 1-HI 217/ 100 ,1 1 fad  t,lbl  str(lnt(loq(V777,csix  1,2,1,90 
far  L'HIll  ta  HI21  by  0,if  L*H(1]  er  L-H(21ijnp  2 
pit  -9.7V, L.l, pit  -10V.L.2 

pit  -10.6V.L-IHI 21-HI 1 17/100, 1|L>Q, for  M-l  to  12 

tf  not  04*1  or  N-3  or  H-5  ar  H*7  er  H-8  or  N-10  or  M-12),lmp  3 

If  8- 2764800 <0,g to  ‘PRINT* 

0-267840076 

tf  act  (M*4.  or  N-6  er  M*9  er  M*117,]iap  3 
tf  Q-2678400<0,gto  ‘PRINT* 

8-259200076 
tf  not  H-2iJup  3 


60 


87.  If  a  2506600<0,9te  TBIHT* 

as.  a-24i97oo>a 

88.  nrit  M 

90.  -PRINT*.,!  0-86400, fid  Oilbl  tlrCO/O) 

91.  If  b-3G00,fid  O.lbl  * tr < <9- 864 OOt M ( 9/86400) ) /0> 

92.  if  D-CO i f  id  0 , Ibl  »lr ( (0- 3600 1 nt (0/3600) )/0> 

93.  If  D* 1 , f id  0 i Ibl  fttr((Q-6Oftnl(O/60))/D) 

94.  nest  l, call  1 . 5 . 2 ,  l ,  90 ,  p  11  - 1 1 . SV.Mt 1 )  •  (HI  2 1  -KM  1  >/3,  1 

99.  If  80--0000000000* , j bo  2 

96.  Bill ,210*- *(8013.4)0*  * (8015 .6)4* . *(B0 1 7 .8 11* . *  180(9. 10 ) 1140 , |ap  f 

97,  rreod  1 .5 .70 , 101 1 .2 1 4* -  *  (TO  1 3 . 4 10*  * 4T01S ,6)4*  .  * 410 1 7,8)4*  •  *41 0  1 9,101)140 

9B,  Ibl  *T,jne  lit  •  4U04*  bratnmno  *4140 

99, 

100,  ’PLOT  OPTO* i 

101,  rrtad  1.4. TO.*, pit  0,-T114C*>T.l,eplt  33,- . 15 , Ibl  *o*,plt  B.T.l 

102,  0>W,X)R,for  L-X*l  to  H,R)S ,rrtad  I.L.TO.t 

103,  If  R-S).5P,H-1)M, jap  2 

104,  If  S-R>.5P,H-1)M 

105,  R-X*MP-V<<-TI7tE')T)-B)/{B-P)»C 

106,  pit  C.T.2,neit  Licplt  - . 33.- . 15 , Ibl  *o*,»lb  -PRINTER* , 12. 13.27,69 

107,  end 
109, 

109,  *TlrC*i 

110,  0)0, for  14-1  Is  vaWTtd. 211-1 

111,  if  14-1  or  14-3  or  14-5  or  14-7  or  H-8  or  H-10  or  14-12 , 8-267840010, jap  3 

112,  If  14-4  or  H-6  or  71-9  or  14-11 ,0-2592000)0, jap  2 

113,  If  71-2,9-2419200)0 

114,  neat  M 

115,  a-86400val(T0f3,4])-3600wal(T0IS.6)3>O 
HE.  ret  a-60vaUTt(7,Sl)-vel<T019,10» 

•G142 


Program 


:  0FF05 


»•  ‘program,  fractional  frequency  of r set  plot*. 

la 

ii  •.z.eaeaeee.eeeoeoeeaaeocaooaeeaoa .ee.ee.  . . .  a 

3i  *■  Kcvla  Millar  ■  Fllaa  OTTOS 

4a  *■  January  14,  1980  »  Updataa  December  It,  19BI 

Sa  ‘a  Naval  Eeieareh  Laboratory  a  Output  Dovicai  7243 

6a  * ■  Space  Applications  Branch  a  Select  Code.  70S 

7a  . . aaaaaaaoao . aeeaaeaa*. 

•  a 

9a  "GET  FILE  NAME  AMD  PLOT  INTERVAL* • 

10a  dap  ‘Insert  Saftcopy  Graphics  Tapc*istp 
11a  ldb  1 1  dev  'PRINTER*,  706,  ‘PLOTTER*  ,705,  ‘CLOCr’.  9|flt  11 
12a  dla  f *161 ,0t  1 6)  ,  T 1 1 141 , U*t 71 ,BI 1 401 ,H12 1 ,BI 1 1 0 1 ,E»1 101 
13a  dla  C.O.F.0,1  , X,L ,H,N ,P.8,V,4>C 

14a  **>Ft|cat  ‘Enter  Data  File  Naae*,F*ilf  flqlSiJap  B 
15a  aiqs  TO. 1.1. 8 

16a  If  Q-lidsp  f»»*  does  not  cztsl’ivalt  ISOOilap  -2 

17a  asps  F4,l,l|rreod  1 ,1  ,G.N,  t  ,00  ,P 

18a  If  N<3|dsp  ‘Not  Enough  Dota  for  PIet*,stp 

19a  ent  ‘Plot  Oota  froaa  mOOHHnMSS*  ,B0 

20a  If  fl<|13, '0000000000*788 

21 1  If  len<Bt) <10 idsp  *Not  In  Proper  Fora’ia^tt  ISOOilap  -2 
22a  ant  ‘Plat  Data  toa  MMDDHHW1SS* , CO 
23a  tf  flal3,  *9999999999*  1E0 

24a  If  len(EI7ri0,dsp  “Not  In  Proper  Fora*i*att  ISOOijap  -2 
29a 

26a  ‘CALCULATE.  UNITS  FOR  AXES*  • 

27a  rread  1 ,K‘l >K ,T0 ,S | tf  T$<Bfilap  • 

28a  rread  1  ,X»1  JK.TO ,8|  ‘T1MEMHI  11  ,1»F 

29a  If  R-S>.SP|S‘PTSiiap  2 

30a  If  S-R>.SP|S-P7S 

31a  abs( (R-S7 / 1 7 ) V| for  L-K‘l  to  6 

32 a  RlSarread  l.L.Tt.Ritf  TI>Ct,}mp  3 

33a  if  R-S>.5P|S»P>Silap  2 

34a  tf  S-R7.5P,S-P>S 

35a  tf  abs<<R-S7/I77V,abs<(R-S7/ll>V 

36a  F‘11F inezt  L 

37.  rread  1 ,L-1 ,T0 • ‘TIME  * 1NC21 a tf  HI  2 1 -Nil )>86399i ‘DATS* >U» |86400>D| jap  4 

38.  tf  HI21-HI1] >3599 a ‘HOURS* )Ut |3600>D| lap  3 
39a  tf  HC21-HC1 13 59 ■  ‘MINUTES* )U0 1 6010 1 Jap  2 

40.  ‘SECONDS*lU0,17O 

41.  Dint  CHI 11/07 }Hll]|Dtnt<Hl21/D*17>H(21 

42.  D0I1.2]0’-*tDt(3.4]O*-*»0*CS.G]IT8,4» 

43c 

44a  ‘INITIALIZE  PLOT  AREA* a  a 

43.  fzd  Of hdepy  l,psc  703|scl  -7. 125. 0,0, 10. 3, (lit  0,0,1 

46.  pit  -.73, 8, 2, pit  - . 73 , 10. 4 ,pl t  0,10. 4, pit  0,0, pit  -5/16,0, pit  -3/16.10.4 

47.  far  L-l.S  to  9  by  1.5'plt  -3/4.L.l,pit  0,L,2,nezt  L,csla  1.5,2,1,90 

48.  pit  -7.3/16,. 67. lilbl  ‘Date*, pit  -1/16, .5.1 , lbl  TO 

49.  pit  -7.3/16.2.1, lbl  ‘Proairaa*  ,plt  -1/16,1.  S3, 1 ,  lbl  *  Frequency  Offset  * 
30.  pit  -9/16.3.4, lilbl  ’Data  rila'iplt  -3. 5/16, 3.6,1,1b!  ‘Naac* 

St.  pit  -1/16.3.52,1 1 lbt  FO 

32.  pit  -9/16.3.05.1, lbl  ’Points*, pit  -5.5/16.5.1, lbl  ’Plotted* 

S3,  pit  -1/16.5. 1.1 ,  lbl  strCFV 

34.  pit  -7.5/16, 6.4. l,lbl  ‘Frequency*, pit  -1/16,6.35,1 

35.  fzd  2, lbl  str Cl/Pdle-67 A*  Mis  ■ 

56.  pit  -9/16.7. 9. lilbl  ’Meazureacat* ,plt  -5.5/16,8,1 , lbl  ’Interval* 

37.  pit  -1/16,7. 9,1, fzd  0,lbl  itrdlt*  secs* 

38.  pit  -9/16. 9.25.1, lbl  'Counter  Gate*, pit  -5. 5/16, 9.6,1, lbl  'Tlae* 

39.  pit  -1/16. 9.35.1, fzd  0,lbl  ztr(G7A*  asec*,plt  -1.373.10.4.1 

60.  pit  -7.123,10.4,2ipll  -7. 123.1, pit  -1.373,liplt  -1.373,10.4 

61.  pit  -4. 25. 1.1, pit  -4. 25, 10. 4, 2, fit  9,10*tnt(loq(V7I>V 

62.  scl  10V.-14. 78261 V.HI  11-CHI 2]  -Hll  17/9.  4  ,HI21’  (HI2I-HI 1 17/94 

63. 

64.  ’LABEL  AXES*. 

65.  for  L— 9V  to  9V  by  V,lf  Lr0,plt  L.HI21.1,plt  L.HI2I-CH121-HI1 17/100,2 

66.  nest  L 

67.  for  L-HI2J-D  to  H(11‘0  by  -D,plt  10V,L,l,plt  9. 7V.L.2 ,nezt  L 

68.  cats  1.2, 1.90, for  L-10V  to  -10V  by  -V,plt  L-. 25V, HI 11 - (HI21-HI 1 17/25,1 

69.  If  L/V<0  and  L/Vr-10,fzd  l,lbl  *  *lstr (L/V7 , ] ap  3 

70.  If  L/V-10  or  L/V--10|fzd  l,lbl  str(L/V7,|ap  2 

71.  fed  l,tbl  *  *  tstr (L/V7 

72.  tf  LelOV  and  L/-10V  and  Lr0,plt  L, Hill, 1, pit  L,HI11’(HI2J-HI177/100,2 

73.  nezt  L,cats  1 .5,2 , 1 , 180 )P1 1  -5.9V,H(ll-(HI21-Htl]7/13,l 

74.  lbl  ’Fractional  Frequency  Offset  x  10* 

75.  lplt  . 2V, (HI 11 -HI 217/100, l,fzd  0,lbl  strflnt CloqCV777 ,csls  1,2,1,90 

76.  for  L-HU1  to  HI21  by  0,if  L-HI11  or  L-HI21,Jap  2  . 

77a  pit  -9.7V.L.1 ,plt  -10V.L.2 

78.  pit  -10.6V,L-(HI21-H(l]7/100,l,L)B|f or  H-l  to  12 

79.  If  not  CM»!  or  M-3  or  tl-5  or  H*7  or  M-8  or  H-10  or  M*127,Jap  3 

80.  If  B-2764800<0,9ta  'PRINT* 

81.  Q-267840078 

82.  If  not  (N*4  or  H«6  or  M*9  or  M*U7,]ap  3 

83.  tf  0-2678400(0, ato  'PRINT* 

84.  fl-239200018 

85.  If  not  H>2,]ab  3 

86.  If  Q-230S600<0  ,q to  ’PRINT* 


87.  a-24i9?oa>a 

881  n*l(  II 

89.  *PRlHT*.lf  0*88400 1 1  *d  Oilbl  >lr<0/0) 

90.  II  0*3600  if  id  0  i  Ibl  >tr < (8  -  86400. nl ( 0/86400) ) /O) 

91.  If  0*60 i f id  0. Ibl  >tr((0-3600lnt (0/3600) )/0> 

92.  If  0*1 1 f id  O.lbl  *lr/CQ'60itil(0/60))/0) 

93.  nut  1  tcm  1.5,2. 1.90, pit  -11.5V.HI1J-OI121-M11  1)/3.1 

94.  If  8>**0000000000*i)np  2 

95.  B»11.21»*-*lB»(3.4)»*  •IBI(5,6)**.*»B«(7.8)»*.*»0»l9.10J>ni,j.D  2 

96.  rr rad  t ,5. TO  i  TOI  t .2 )•*- *41 1(3. 4 «•  *  110(5,6)4* . **T*( 7 .8 J»* . * *1 1 ( 9, 10 J )H0 

97.  Ibl  *Tloe  io  ’AUII*  beqtnnliMi  **H0 

98. 

99.  “PLOT  DATA* . 

100.  rrrod  1  ,K«  1  >K ,T0  , S.  if  TI<Bt,)op  • 

101.  rreod  1 .8*1  IK. TO  .8, If  8-S)  .  8P  .S*P)S  t  l«b  2 

102.  If  S-R).SP,S-P)S 

103.  pit  -<R-S)/l.*TlHC*.l.cplt  * . 33 , - . 15 i Ibl  *o*icplt  -.67, .15 

104.  for  L-K-1  Is  N.RlS.rreod  l,L,Tt.R.lf  TI>CI,)»p  4 

105.  if  R-S).5P|S*P)S| jap  2 

106.  If  S-R).SP,S-P)S 

107.  pit  -CR-S)/l.*Tll1€*,2>next  L 

108.  cplt  -.33, -.15. Ibl  *o* i»tb  ‘PR1HTER* .12,13,27.69 

109.  end 

110. 

in.  *tihe*. 

112.  OIQ.far  H-l  to  vol (Till .217-1 

113.  If  If- 1  or  H-3  or  H-5  or  M-7  or  14-8  or  11-10  or  n-12,8-2678400>Q,]op  3 

114.  If  n*4  or  M-6  or  M-9  or  11-11 ,8*2592000)0.  Jap  2 

115.  If  11-2, 8*2419200)8 

116.  next  M 

117.  0-664  00 vol  (TK3, 411-3600 voKTKS, 613)8 

118.  ret  0-60 vol (T 0(7, 8))* vol <T 1(9,101) 

>30754  \  ‘ 


Program:  OF  F 1  8 


a. 

1  • 

2  i 

3. 

4. 

5. 

Si 
7. 

a. 

9l  'GET  riLE  NAME  ANO  PLOT  INTERVAL*! 

10*  dip  'Insert  Softcopy  Graphics  Tapc'.stp 
Hi  Idb  1 1 dev  -CLOCK*. 9, fit  11 

12.  dla  rit6) ,Dt I6J ,Ttl 141 ,Ui( 71 ,Mtt401 ,H(2I ,BI110I ,EtllO) 

13.  dla  G,M.I,P,R,S,L.Q.C.H,D,V,Kaf  ,4>K 

14.  **)rt,ent  -Enter  Data  File  Nanc‘.rt|lf  flql3,l«p  t 
1S<  asqn  Ft, 1.1, a 

1S«  if  Q-l.dsp  Ft 4*  does  not  exist* ,vait  1500, Jap  -2 

17*  aaqa  Tl, 1,1, rread  1 , 1 , G , N . I ,04 ,P 

IB.  if  N<3«dsp  -Hot  Enouqh  Data  for  Plot'islp 

19.  enl  -Plot  Data  froa.  MMDOHHmSS- ,B* 

20.  if  flql3, *0000000000*) BO 

21.  if  len(Bt)rl0,dap  -Not  in  Proper  Fora*, wait  1500, Jap  -2 

22.  eat  -Plot  Data  tot  lUIDDHHnHSS- ,E§ 

23.  if  flql3.  *9999999999- >E0 

24.  if  lenfCtlrlO.dsp  ’Not  in  Proper  Fora*,*>ait  1500, Jap  -2 

25.  * ' 

26.  -CALCULATE  UNITS  FOR  AXES*. 

27.  rread  1,K«1>K.T« ,S.if  Tt1Bt,)ap  0 
26.  rread  l.K-DK.T* ,R .  'DATE* >Ht 1 1 ,1)F 

29.  if  R-S>.SP,S*P)S,jap  2 

30.  if  S-R)-5P,S-P)S 

31.  absC(R-S)/I))V,for  L-K-I  to  N 

32.  RlS.rread  l.L.TS.Rtlf  Tt7C»,Jap  3 

33.  if  R-S>.SP|S*P)S|lap  2 

34.  if  S-R).5P,S-P)S 

35.  if  abs<CR-S7/I7>V,abstCR-S)/I7)V 

36.  F-11F .next  L 

37.  rread  1  ,L- 1 .TO . 'OATE - )H( 2) . if  H121-HI 1 1>86399. ‘DAYS* >U0 .864007D.  jap  4 

38.  if  HC21-H11]  >3599.  -  HOURS'  1U0  i3600)D|  j  ap  3 

39.  if  H(2)-H(l)739, -HINUTESMUS, 60)0, Jap  2 

40.  -SECONDS- TU0« 170 

41.  Dlnt(H(ll/0))H(l),DlnttH(21/D*l))H(2] 

42.  17U. if  11H(21-Hll])/0)R))30,2)M,lf  inttR/27'R/2,H[2)*D>H(2) 

43.  art  -CLOCK- . -R- , red  -CLOCK*  .TO  ,4>K  ♦* 

44. 

45.  -INITIALIZE  PLOT  AREA*. 

46.  fxd  O.hdcpy  O.pse  71B|pclr,sel  0.11.5,0.7. 125.plt  0.0,1 

47.  pit  0,.73.2iplt  10. 4, .75, pit  10. 4.0, pit  0.0, pit  0.5/16.1, pit  10.4,5/16,2 
40.  for  L-l.S  to  9  by  1.5, pit  L,. 75,1, pit  L, 0.2, next  L.csix  1.5, 2,1 

49.  pit  .53.9/16, l.lbl  -Date-, pit  .5.5.7/16.1, Ibl  -Today* 

50.  pit  .21,1/11 .1 . lbl  T«tl.210*--»T014,5J»*--»-8a* 

31.  pit  1.85. 7.5/16. l.lbl  -Proqraa‘iplt  1.6.1/11 .1 , lbl  *Freq  Offset* 

52.  pit  3.25,9/16.1 i lbl  -Data  Flle*,plt  3. 57.5. 7/16,1, lbl  -Naae* 

53,  pit  3.4. 1/11. l.lbl  FO  •  • 

34.  pit  4. 88, 9/16. l.lbl  -Points'.plt  4.  83,5.7/16.1 ,  lbl  -Plotted* 

55.  pit  4. 95. 1/11, l.lbl  slrCFlO*  * 

36.  pit  6.2. 7. 5/16.  l.lbl  -Frequency*  .pit  6.1,1/11.1 
57.  fxd  2, lbl  slr<l/Pele-6)«*  NHt  * 

38.  pit  7. 6. 9/16. l.lbl  *Measureaent*,plt  7. 8,5. 7/16,1 , lbl  -Interval* 

59.  pit  7. 6,1/11 , 1 >f xd  0. lbl  strCI70*  see.  * 

60.  pit  9. 45. 9/16, l.lbl  *Gate‘,plt  9. 45 ,5. 7/16,1 , Ibl  *Tiae* 

61.  pit  9.1. 1/11, l.fxd  0. lbl  str1G)A*  a see  *,plt  10.4,1.375.1 

62.  pit  11. 4, 7.  125, 2 .pit  1,7. 123, pit  1.1. 375, pit  10.4,1.375 

63.  pit  1 ,4.25,1 iplt  10. 4, 4. 25. 2, fit  9, 10*!nt (loq(V) 7 )V 

64.  sel  HC1)-(H12) -HI 117/9. 4, HKZl-CHt 21*81117/94,-14. 78261V, 10V 

65. 

66.  'LABEL  AXES*. 

67.  far  L--9V  to  9V  by  V.lf  LrO,plt  H(2],L,liplt  HI2]-(HI2)-HI11>/100,L.2 

68.  aest  L 

69.  for  L-HI21-UO  to  Htll-HD  by  -UDjplt  L.lOV.l.pit  L .9. 7V.2, next  L 

70.  eaix  .7. 2.1, for  L-10V  to  -10V  by  -V,pll  HI 11-1HI2] -HI 1)7/11, L-.2SV.1 

71.  if  L/V-10  or  L/V--10,fxd  l.lbl  *  *»str 1L/V7 ,gto  »2 

72.  fxd  l.lbl  •  -tstrlL/VJ 

73.  If  LP-10V  and  L/10V  and  L'O.plt  8(11, L.l, pit  Hm-(H(2]-Htl])/100,L.2 

74.  next  L.csix  1. 3,2,1 ,90,plt  H111-1HI21-M1117/12.-5.9V.1 

75.  lbl  'Fractional  Frequency  Offset  x  10* 

76.  iplt  1H(l]-HC2)7/100,.2V,l,fxd  0,lbl  strCinl CloqCV77) 

77.  cs lx  .7, 2.1, for  L-HltJ  to  H121  by  W0, If  L-Htll  or  L*Ht2),jap  2 

78.  pit  L.-9.7V,l,plt  L.-10V.2 

79.  pit  L-(Hl2]-Hll]7/S0,-10.6V,l|L>Q.for  N*1  to  12 

80.  if  not  CN-l  or  11*3  or  N*5  or  H*7  or  H»8  or  M-tO  or  H*12),)ap  3 

81.  if  0* 276480010 . q to  -PRINT* 

82.  0-2678400)8 

83.  if  not.  tH*4  or.  H-8  or  H-9  or  11*117 ,  lap  3 

84.  if  0-267840010 ,qto  -PRINT*  - 

85.  0-2592000)0  .  . 

86.  if  not  N-2,Jap  3 


-PROGRAM.  FRACTIONAL  FREQUENCY  OFFSET  PLOT*. 


a  Kevin  Miller  ■  File.  0FF10 

X  January  14.  1980  ■  Update.  December  20,  1980 

a  Naval  Research  Laboratory  0  Output  Oevlca.  1350 

'a  Space  Applications  Branch  a  Select  Coda.  718 


87.  It  8-2505600(0|<|la  ‘PRIMT* 

88.  8*  241320018 

88.  N 

90.  -PRINT*. If  0*66400 . f id  O.ibl  tlr(8/D) 

91.  If  D-3600|fid  O.ibl  otr < <8- 664001 M (0/66400)) /0» 

92.  If  0*60. f id  O.ibl  «tr < <0-36001 nt (0/3600) >/D) 

93.  If  0*1  .fid  O.ibl  *lr((0-60li.t<e/60)>/D) 

94.  .Ml  L.coli  1. 5,2,1  iplt  Mll)*tMI2J-H(l  1 )  /  4 . 2,  - 11 ,5V,  I 

95.  If  60**0000000000*1) mo  2 

96.  8011, 2)«*-*tBI(3, 4)0*  *060(5, 6)0*. *180(7, 8)4*. *06019, 10)}n0|)*o  2 

97.  rremd  1 ,5, TO, 10(1  ,2)4*-'4T0(3,4)4*  *0(0(5, 610*  •  *410(7,8)4*  .  *OTO  19.101  IPIO 

98.  lbl  *  Tim  ti.  * 0U04*  beslnnin*  *0M04*  * 

99. 

100.  'PLOT  DATA*. 

101.  rrt.d  l,K*l)K,TO,Silf  T0<B0|)*p  8 

102.  rremd  1 ,K‘1>K,T0 .8, Of  8-S> . 8P |S*P>S( )-p  2 

103.  If  5-R>.8P|S-P>S 

104.  pit  *DATC',CR-S)/f .l.cpll  - . 33 , - . 15 , lbl  ’o'icpit  -.67, .15 

105.  far  L-K-l  lo  M.RISirrrad  l,L,T0,R|if  Tt>d|]ap  4 

106.  Of  R*S>.5P|S*P)5| J«p  2 

107.  If  S-R>.SP|S-P>6 

108.  pit  'DATC',(R-S)/t,2inest  L 

109.  cplt  * .33,*. IS. lbl  *•• 

110.  end 

111. 

112.  *OATE* • 

113.  0)0, for  H-l  la  val <T0( 1 ,217-1 

114.  If  H-l  ar  H-3  ar  H-5  or  H-7  or  H-8  or  H-10  or  H-12l8*2676400>Q|iap  3 

115.  If  H-4  or  H*6  or  H*9  or  H-ll , 0-2592000)0, )»p  2 

116.  If  H-2.a*2419200>6 

117.  nest  H 

118.  0*86400val <T0 (3,4 ])«3600val <7 0(5,61)76 

119.  ret  8 * 60 va 1 (TO (7,81) « val (70(9,183) 

■11943  V\ 


Program 


0  c  F  0  5 


o,  'subprogram.  f pact i omal  rpcoucHCY  offset  plot*' 

1. 

2 1  '»••»• . . . . 

3>  *■  Kevin  Millar  •  File.  .Off 05 

4 i  Auqust  IS,  1988  *  Update*  December  2t,  198S  ■*• 

5 i  *a  Hovel  Research  Laboratary  a  Output  Device*  7248 

6*  •*  Space  Application*  Branch  ■  Select  Code*  705  a** 

7,  . . . . . . 

8* 

9* 

10*  'CALCULATE  UNITS  FOR  AXES* l 
11*  if  K>3,]ap  3 

12*  >pc  3 1 pr t  'Hot  Cnouqh  Data*. 'Vet  to  do' , 'FREQUENCY  OFFSET* 

13.  pet  'Plot. * i*pc  3 i q l a  'RETURN* 

14*  rread  l,3,Rt,S 

15.  rread  I  .G.Rt  ,R.  'DATE'IMUJ 

16.  if  R-S>.8P,S-P3S, Jap  2 

17.  if  S-R> . 8P.S-PJ5 

18*  ab»<(R-S)/mv,foe  L-3  ta  X-13Z 

19.  RTS.rread  l.L'4,St,X 

20.  if  R-S7.8P.S'P7S| jap  2 

21.  if  S-R>.8P,S-P»S 

22.  if  ab»<<R-S3/I)>V,obs<CR-S3/mV 

23.  next  L I 'DATE ' >M 1 23 

24.  if  Ml 2 3 “HI  1 1 >86399, 'DAYS' >Ut 1 86400 IDi jap  4 

25.  if  HC21-H(11>3599, 'HOURS'JUt ,360010, jap  3 

26.  if  H[2J-Htl3>S9,'MINUTCS*>Ui|60>O|Jap  2 

27.  'SECONDS*  >Ut .130 

28.  Dlnt(H(ll/D)lHll),0int(HI23/0'l>>H(2] 

29.  Dfl 1, 214*- ' 40013,434* -'lOt 15, 63 >R0 

38. 

31.  'INITIALIZE  PLOT  AREA*' 

32.  fed  O.hdcpy  1 ,p*c  705,pclr,*cl  -7. 125,0.0.10.5 ,plt  0.8,1 

33.  pll  “ . 75, 0 ,2 ,pl t  -.75,10. 4, pit  0,10. 4, pit  0.0, pit  -5/16,0, pit  -5/16,10.4 

34.  for  L-1.3  ta  9  by  l.Stpll  -3/4,L,l,plt  O.L.2,neat  L,cslz  1.5.2,1,90 

35.  pit  -7.5/16,. 67,1 , Ibi  'Date*, pit  - 1/16, .5, 1 , lbl  R0 

36.  pit  -7-5/16,2,1 i lbl  'Proqraa* ,plt  -1/16, 1 . 55 , 1 , lbl  *  Frequency  Offset  * 

37.  pit  -9/16. 3.4.1, lbl  'Data  File', pit  -5. 5/16,3. 6. 1 , lbl  °Haae* 

38.  pit  -1/16, 3. 52.1, lbl  TO 

39.  pit  -9/16, 5. 05.1, lbl  *Points*,plt  -5. 5/16, 5. 1 , lbl  'Platted* 

40.  pit  -1/16. 5. 1.1, fed  0, lbl  strfZJ 

41.  pit  -7. 5/16. 6. 4,1, lbl  'Frequency* , pit  -1/16,6.35,1 

42.  fed  2. lbl  *tr<l/P*le-63t‘  HHx  • 

43.  pit  -9/16,7. 9.1,lbl  'Heasareaeat* iplt  -5.5/16,8,1 , lbl  'Interval* 

44.  pit  -1/16. 7. 9.1, fed  0,lbl  strCDO*  see** 

45.  pit  -9/16.9.25.1,181  'Counter  Gete’rplt  -5.5/16.9.6, t , lbl  'Tlae* 

46.  pit  -1/16, 9.35.1, fed  0,lbl  strCGJl'  asec'iplt  -1.375,10.4,1 

47.  pit  -7. 125, 10. 4, 2, pit  -7. 125.1, pit  -1.375.1, pit  -1.375,18.4 

48.  pit  -4.25,l,l,pll  -4.25.10.  4, 2,  fit  9,10atnt(loqivmv 

49.  eel  10V. -14.  78261V, HI  13- <H(21-H<  1 33/9.  4, HIZ]'(HI23-HI  1 17/94 
31. 

'  ‘LABEL  AXES*. 

92.  far  L— 9V  ta  9V  by  V,tf  L#0,plt  L.HI2J.l,plt  L.HI23-<HI23-HI11)/100,2 

53.  neat  L 

54.  far  L-HC23-0  to  H(t]«D  by  -D,plt  10V,L,l>plt  9.7V,L.2,neet  L 

55.  calx  1.2. 1.90, far  L-10V  la  -10V  by  -V,plt  L-.25V,H(ll-(HI21-HIll}/25,2 

56.  tf  L/V-10  or  L/V--lO,fed  1 ,  lbl  *lr<L/V7,jao  2 

57.  fed  1 , lbl  •  'tetrtL/VJ 

58.  if  L«10V  and  L4-10V  and  L#0,plt  L. Hit], 1, pit  L.Htll'(HI21-H[ll>/10t,2 
55.  next  L.cslx  1.5, 2,1 , 180 ,plt  -5. 9V.HI  13-CKI23-HI 1 13/13. 1 

60«  lbl  'Fraetlona’  Frequency  Offset  e  18* 

61.  iplt  ,2V,  CHI  11- HI  233/1 00,1 ,  fed  0,lbl  str  (I  nt  CIoq(V7»  ,csix  1,2,1,90 

62.  far  L-HIll  ta  HI21  by  D,lf  L-HI11  or  L-HIZl,Jup  2 

63.  pit  -9. 7V,L,1 ,plt  -10V.L.2 

64.  pit  -10.6V.L- CKI2J-MI133/1 08,1, LIE, for  H-l  ta  12 

65.  If  not  CH-t  or  N'3  or  H-5  or  N-7  or  H-8  or  14-10  or  N-12),jap  3 

66.  If  X-276480040 ,qta  'PRINT* 

67.  X-26784003X 

68.  If  not  (74-4  or  H-6  ar  H-9  ar  H-113,lap  3 

69.  tf  X- 267840040 ,qlo  'PRINT* 

70.  X-2S320003X 

71a  tf  not  14-2,  Jap  3 

72.  If  X-2505600<0,qt*  'PRIHT* 

73,  X-24192001I 
74'  next  M 

75.  'PRINT* ■ If  0-86400, fed  0,lbl  str(X/D> 

78.  If  0-3600, fed  0,lbl  str<CX-86400tnUX/8640033/03 
77'  If  0-60, fed  0,lbl  str < CX-3600 tnt CX/360O33/D) 

78.  If  0-t, fed  0, lbl  str(<X-60tntCX/6073/O> 

75.  next  L.eetx  1 .5,2.1 .90 , pit  -11.5V,HtlJ*CHl21-HIll)/3,l 

80.  rread  1 ,6,Rt  ,R0I1  ,210*-'»R»I3,410*  *18115.61*'  .  '4R0I7, 810*  •  '«Rtl9,10 33HO 

81.  lbl  *Tlae  la  *IUt**  besinnlnq  *«N0 

82. 

83'  'PLOT  DATA*. 

84.  rread  t.S.RO.S 

85.  rread  l,6.Rt,R,tf  R-S>.8P,S'P)S, jap  2 
88.  tf  S-R7 . 8P , S-P1S 
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97,  olt  (R-S>/l.'OATE'.l,eplt  -.33,-.15|lbl  *o*,cplt  -.67. .19 
69,  tpr  L -3  t.  2,R)S,rreo d 
89,  If  *-S>.8P,S*P>S,j«p  t 

99.  tf  S-R>.8P»S-PI« 

91,  pit  CR-Sl/i . 'DATE* .2, next  L 
97.  cp 1 t  -.33.-. 15,lbl  ••• 

93,  «lb  “PRINTER’,10.13,27,69 

99,  “RETURN* ,  ret 

99, 

96.  “OATE*« 

97,  OIX,  for  H-l  to  vol  (ROM  , 213-1 

99,  if  M-l  or  N-3  or  M-5  or  H-7  or  H-8  or  H-10  or  H-12,X“2678400>X, jap  3 

99,  If  PI-4  or  H-6  or  H-9  or  PI-11  ,X*2S92000>X , j op  C 

100,  if  M-2,X«2419200)X 

101,  next  M 

102,  X. 66400 vo I (Rl 13, 4 13*3600 vet (R< (5,613)1 

103,  ret  X*60wol (R0I 7,81) *vol (Rt (9,1 0 13 
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SUBPROGRAM,  f R  ACT  I OHAL  fRCQUCNCY  OFfSET  PLOT*, 


>• 

2. 

3. 

A  i 

5. 

6* 

7. 

a. 

3i 

10 

11 

1Z 

13 

14 

15 
IS 
17 
IS 
19 
ZO 
Z1 
ZZ 
23 
Z4 
Z5 
26 
27 
ZS 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
BZ 

83 

84 

85 

86 


•a  Kevin  nilltr  •  film  .OfriB 

■■  December  19,  1980  >  Update*  December  ZO,  1980 

*e  Newel  Research  Leboretory  ■  Output  Device*  1350 

*n  Space  Applications  Branch  ■  Select  Code*  718 


•CALCULATE  UNITS  FOR  AXES*  • 
hdepy  0 i pec  718*111  llilf  K>3,jmp  3 

epc  3*prt  ‘Not  Enough  0eto‘,*Vet  to  de* .  TRCOUEHCV  OFFSET* 

ert  'Plot.'iepc  3  *  A  to  ‘RETURN* 

rread  1 . 5 . R I . S . r r end  1 ,6 ,RI , R ( ‘0ATE * >M{ 11 

If  R-S3.8P,S*PIS,Jap  2 

11  S-R>  .  8P  *  S-P7S 

<*bs((S-S3/l3  )V,for  L-3  te  X-13Z 
RlSirreed  1,L*4.R»,« 

If  R-S3.8P,5*P7S,1  mp  2 
If  S*R> . 8P  *  S-P3S 

If  *>bs((R-S3/13>V*abs((R-S3/13>V 
neet  L* '0ATE' 1H121 

If  H121-H11  1 > 863 99 1 ‘DAYS " 1 Ut  *  8640  0  ID | Imp  4 
If  HI21-HI1133599* *HOURS*3Ut, 360010,1*0  3 
If  Hl2J-Hlll>59t‘HIMUT£S*>Ut,60>Oilmp  2 
‘SECONDS* lUt  1 110 

Dint (H(l 1707  lHtll iDlnt (HI  2 1 /D* 1 3 1  HI 21 

l}U*lf  (CH12J-HI l))/D)R3>30,2)W,lf  1 n t (R/23 eR/2 i HI 2 J * D1HCZ1 

V  ' 

‘INITIALIZE  PLOT  AREA*  i 

fid  Oipclriecl  0 , 10.5, 0 ,7. 1Z5 ipl 1  0,0,1 

pit  0,.7S,2iplt  10. 4. .75, pit  10.4,0iplt  O.Oiplt  0 ,5/16,1 iplt  10.4,5/16,2 

for  L-1.5  to  9  by  1.5, pit  L,. 75,1, pit  L, 0.2, next  Licsix  1.5. 2,1 

pit  . 55,9/16, 1 i lbl  *Dete‘ iplt  . 5 ,5. 7/16 , 1 , lbl  ‘Today* 

pH  .21,1/11 .1 ,  lbl  Dttl.2]4‘-*iOfI4,S14*-‘tOttS,614*  * 

pit  1.85, 7. 5/16,1, lbl  ‘Proqraa* ,pl t  1 . 6.1/1 1 , 1 , lbl  *Freq  Offeet* 

Pit  3. Z5. 9/16,1, lbl  ‘Data  Flle'iplt  3. 57 ,5. 7/16, 1 ,  lbl  ‘Haw* 
pit  3.4, 1/11, lilbl  F 1 4 *  • 

pit  4. 88,9/16, 1 i lbl  ‘Points* iplt  4 . 83 , 5. 7/16 , 1 , lbl  ‘Plotted* 
pit  4. 95. 1/11.1, fid  0, lbl  str(Z-134*  * 

Pit  6.2,7.5/16.1 , lbl  -Frequency'iplt  6.1,1/11,1 
fid  2, lbl  strCl/Pele-634*  HNa  * 

pit  7. 6. 9/16.1, lbl  ‘Measurement ‘ iplt  7 . 8 ,5. 7/16, 1 , lbl  ’Interval* 

pH  7.6. 1/11.1, fed  0 ,  lbl  str<I)4*  secs  • 

pit  9. 45. 9/16.1, lbl  ‘Gale*, pit  9. 45 ,5. 7/16.1 , lbl  "Time* 

Pit  9.1, 1/11.1, fid  0  * lbl  sir (G1 4*  msec  *,plt  10.4,1.375.2 
pH  10.4.7. 125, 2, pit  1,7.  125 ,  p  1 1  1,1. 375, pit  10. 4, 1.375 
pit  1.4. 25,1, pit  10. 4, 4. 25, 2, fit  9,10*lntCIoq(V777V 
scl  Nil 1- CHI  23 -HI 113/9. 4 ,HC21* CHI  21 -MI 113/94.-14. 78261V.18V 

•LABEL  AXES* t 

far  L— 9V  to  W  by  V,lf  L#0,plt  H(21,L.2,plt  HI 21  - (HI23 -HI  1 17/100. L.2 
neat  L 

far  L-HI21-WD  to  HIU'MD  by  -MD,plt  L.10V,l,plt  L, 9.7V, 2, next  L 
estx  •  7,2,1 , f er  L-10V  to  -10V  by  -V,plt  Htll-CHt 23-HI 113/11  .L-.25V.1 
If  L/V-10  or  L/V— 10, fed  l,lbl  *  •4strCL/V34*  *|Sto  *2 
fid  l,lbi  *  ‘4slrCL/V> 

If  Lr-lOV  and  L'lOV  and  L/0,plt  HCll.L.l,plt  HI  1 1 • CHI 27 -HI 113/1 00, L, 2 
next  Lieslx  1 . 5 .2 . 1 , 90  ,pl t  HU] -CHI  2] -HC113/12, -5.9V.1 
lbl  ‘Fractional  Frequency  Offset  x  10* 

iplt  CHU1-HC2J3/100, .  2V,  1 ,  f  id  0,lbl  strClntCloq<V333a*  * 
csll  .7. 2,1, for  L‘Hll ]  to  NI27  by  WO, if  L-Hll]  or  L‘HI21i]ap  2 
pit  L.-9.7V.1 ,plt  L , *  1 0V , 2 

pit  L-CHl21-HU13/50.-10.6V,l,L)X,for  M-l  to  12 

If  not  CM*1  or  H-3  or  M-5  or  N-7  or  M-8  er  H‘10  or  Hwl2},Jap  3 

If  X-2764800<0,qto  ‘PRINT* 

X-26784003X 

If  not  CM-4  er  H-6  or  M-9  or  N-113iJap  3 
if  X-2678400C  0  is  to  ‘PR1HT* 

X-25920001X 

If  not  M*2|Jap  3 

If  X-2505600<0,sto  ‘PRINT* 

X- 241920072 
next  N 

•PRINT*, If  0*86400 , fid  0,lbl  strCX/D3 

If  0*3600,f xd  0 , lbl  slrCCX-86400lnlCX/8640033/Dl 

if  0-60,fxd  0 1 lbl  sir (CX- 3600 Int (X/36003 3/02 

If  0*1  ,fxd  0, lbl  strCCX-60lntCX/60]3/D3 

next  Ltcslx  1.5, 2,1, pit  Hill* (HI 21 -HU13/4. 2.-1 1 .5V,1 

rread  1,6,20  ,201  1 ,2]4*-*»R*t3.4 14*  ‘  IRt  15 ,674*  .  *  iRt  1 7,834*  ,  •  IRt  19,1 0 1 1M0 

lbl  *Tlae  la  ‘4U44*  beqlnnlnq  ‘»Mt4*  * 

■PLOT  DATA*, 

rread  l.S.Rt ,S, rread  1,6,R4,8 
If  R-S3.8P,S*P7S,] ap  2 
If  S-»>.8P,S-P»S 

pit  ‘DATE‘,(R-S>/I.l,epll  -.33,-. 15, lbl  *o*,cplt  -.67, .15 


07 . 

80i 

89. 

90. 

St . 

92. 

93. 

94. 

95. 

96.  if 

97. 

99. 

99. 


imr  1*3  to  2,R)S,rrrad  l,L*4,R0,I 
if  R-S).8f>,S-P>Sil«i«>  2 
If  S-R>.8P,S-P»* 
pit  'D*TC'.<R-S>/I .2. neat  L 
colt  -.33,-. 15,lbl  ••• 

•RETURN* .rat 

•DATC'i 

OlX.for  N*1  to  waKRttl. 217*1 

If  PI*  1  or  N*3  or  H»5  or  N* 7  or  (1*8  or  PI-10  or 
If  Pt*4  or  «»6  or  PI-9  or  PI* t 1 , X*2592 0 00 IX , . aa  2 
If  P1*2.X*2419200)X 
neit  H 


too,  X*e&400val<R*l3,411*3600valtRttSp6mi 
101.  ret  X*£0val ( Rf ( 7 , 8] ) • val <R»I9. 1017 
■10021 


•program,  fractional  frequency  offset  plot,  constant  offset  sen ovable*. 


3i  '■  Kevin  mllir 

4a  *1  January  14.  1980 

5a  *■  Naval  Research  Laboratory 

8a  •»  Sosce  Applications  Branch 


Ft  la  a  VOFF05 
Update.  July  30,  1983 
Output  Devicea  7245 
Select  Codea  70S 


9a  "GET  FILE  NAME  ANO  PLOT  INTERVAL* a 

10a  dsp  'Insert  Softcopy  Graphics  Tape’astp 

lla  ldb  1 i dev  "PRINTER*. 70S, "PLOTTER* ,705, *CL0Cr*.9|flt  11 

12a  dim  FM61, 01161, TK141.U*  (71,  nt  1401, HtZl.BttlOl, £11101,0*  1101 

13.  dt a  C.D.r,G.l,K,L,H.M.P.Q.V,4)R,0>0 

14a  •*}F»ient  ’Enter  Data  File  Nai»e*,F*,if  flgl3ijap  0 

*5a  asqn  Ft, 1,1, 8 

IS  a  if  S*l|dsp  Ftt*  does  not  extst’aveit  1500i]ap  -1 

17a  asqn  FI, 1,1, rread  1 , 1 ,G ,N , 1 ,0t ,P 

18a  If  H<3idep  *Not  Enouqh  Data  for  Plot’iatp 

19.  ent  "Plot  Data  froaa  WlOOHHrtnSS*  ,B0 

20a  if  f lql3, "OOOOOOOOOO’IB* 

21a  if  lcnCBt )  <10  fdsp  "Not  in  Proper  Form’jvalt  1500,1*0  -2 

22.  enl  ’Plot  Data  to.  /V4DDHHIWSS*  ,£* 

23.  if  flql3, *9999999999* >Et 

24a  if  lcn(Etl#10adsp  *Not  in  Proper  Fora*javalt  1500|}*p  -2 
25  a  ent  ’Enter  offset  to  reuove*  ,0i -O10|Sfa|  11 
28  a  '  i 

27.  "CALCULATE  UNITS  FOR  AXES’* 

28a  rread  1 ,K« 1 >K ,Tt ,S a  if  Tt<Btt]ap  0 

29.  rread  1 .K. 1 IK ,Tt ,R , 'TIME  * 1HI 1 ] , 1 >F 

30.  if  R-S>.5PaS«P!S*lnp  2 

31.  if  S- R> . 5P , S-P IS 

32.  abs((R-S>/l-011V,far  L-K“t  to  R 

33.  RlS.rread  l.L.Tt.Raif  T*>E»,a«p  5 

34.  if  R-S>.5P|S«PlSalnp  2 

35.  if  S-R>.5P,S-P>S 

36.  If  abs<(R-S)/l-a}>V,abs((R-S}/I-011V 

37.  FMlFanext  L 

38.  rread  1  ,L-1  ,Tt  a  "TINE* )Ht 21  a  if  HC21-H11 1> 86399 1  “DAYS*>U*a86400JDa|np  4 

39.  if  HI21-H1 1 1> 3599a “HOURS* >Ut, 3600  ID  al«p  3 

40.  if  H(21-Htll>53a ‘MINUTES* )U*j60>Oil  ap  2 

41.  “SECONDS* >U», 110 

42.  Dtnt(H(ll/0>>H(lI,Dlnt(H(21/D.ll>H(2] 

43.  0ttl.2]t’-*t0<(3,41l*-*10(lS,61>Tt|4>K 

44.  »*  .  • 

45.  ’INITIALIZE  PLOT  AREA*.  *  *  • 

48.  fxd  0 a hdepy  lapse  705isel  -7. 129 ,0 . 0 , 10.5 apl t  0,0,1 

47,  pit  -,7S.0,2iplt  -.75.10. 4,plt  0.10. 4, pit  O.Oaolt  -5/16,0, pit  -5/16,10.4 
48a  far  L-1.5  to  9  by  1.5aplt  -3/4,L,l,plt  S,L.2anezt  Lacslz  1.5,2,1,90 

49.  pit  -7.5/16,. 67 , 1 , lbl  *0ate‘,plt  -  1/16, . 5 , 1  a Ibl  TO 

50a  pit  -7.5/16.2, 1  a lbl  ’Proqrna* aplt  -1/ 16, 1 . 55 , 1  a lbl  •  Frequency  Offset  * 

51.  pit  -9/16,3. 4,1a lbl  ’Data  Flle’aplt  -5.5/ 16,3.6,1 , lbl  ’Nana’ 

52.  pit  -1/16, 3.32,1, lbl  Ft 

53.  pit  -9/16.5.  05,  l.lbl  “Points*,plt  -5.5/16,5,1  a  Ibl  ’Plottaal* 

34.  pit  -1/16,3. l.l.lbl  strCD 

55a  pit  -7.3/16,6. 4 ,1  a lbl  "Frequency* aplt  -1/16,6.35,1 
56a  fed  2,lbl  strCl/Pale-Sl*’  MHz  • 

57.  pit  -9/16,7.9,1 , lbl  ‘He.jure.enf aplt  -5.5/16,8, 1 , lbl  ’Interval’ 

58.  pit  -1/16,7. 9, l.fzd  0 a  Ibl  strCIl*’  see*’ 

39.  pit  -9/16, 9. 25. l.lbl  "Counter  Gate’aplt  -5. 5/ 16,9. 6.1 ,  lbl  *Tla>e’ 

60a  pit  -l/16,9.35.1afxd  8, lbl  strCGll*  nsec*, pit  -1 .375 , 10. 4,1 

61.  pit  -7. 123, 10. 4. 2, pit  -7. 125 , 1 f pi t  -1.375,1, pit  -1.375,10.4 

62.  pit  -4.23,l,l.plt  -4. 23 , 10 . 4 ,2,f 1 t  9a 10’lnl C loo (V) 1 >V 

63.  sc 1  10V,-14.782GlV.HU]-<Ht2]-Htlll/9.4,H[Z]«(Hl2I-Hll]>/94 

64. 

65.  ’LA8EL  AXES’. 

66.  for  L--9V  to  9V  by  V,lf  L/0,plt  L,HI21,l.plt  L ,Ht 21-1H1 21-Ht 1 17/100,2 

67.  next  L 

66.  for  L-H12J-0  to  HCIJ.0  by  -0,pl«  lOV.L.laplt  9. 7V.L ,2. next  L 

69.  cats  1,2, 1.90, for  L-t0V  to  -tOV  by  -V,plt  L-. 25V, Mill- (H121-HI 1 1> /25.1 

70.  If  L/V<0  and  L/V#-10,fxd  l,lbl  •  *»str<L/V> a |.p  3 

71.  If  L/V-10  or  L/V— lOafxd  l.lbl  str<L/Vl  ajaap  2 

72.  fxd  1  a lbl  •  ’l»lr<L/V> 

73.  If  LP10V  and  LP-10V  and  L/Oaplt  L, Hill, 1, pit  L ,HI 1 1 ♦ KHt 21 -HI 1 17 / 100,2 

74.  next  L.cslz  1 . 5,2 , 1 , 180 apl t  -5. 9V  ,Hl 1 1  -  CHI  2 1 -Hill 1/13,1 

75.  lbl  ’Frectlonal  Frequency  Offset  x  10’ 

76.  Iplt  ,2V, (HI ll-N(21)/100,lafxd  O.lbl  s tr < 1 nt ( 1 oq (V) 11 , esiz  1,2,1,90 

77.  exit  1.5,2.1,90a  If  flqll'lalno  2 

78.  pit  9V,H(l].<H(2]-H(l))/3,laf It  2, lbl  str{-0)»’  offset  removed* 

79.  for  L-Htll  to  H121  by  Dalf  L-Hlll  or  L-H(21a)ap  2 

80.  pit  -9. 7V ,L , 1 ,p 1 t  -10V.L.2 

81.  pit  -10.6V,L-(H(2]-HIlll/100,l,L10ifor  H-l  to  12 

82.  If  not  (N.l  or  H“3  or  H»5  or  H«7  or  H*8  or  M*10  or  N*121a|no  3 

83.  If  8- 2764900< 0  ,ot  o  *  PRINT • 

84.  9-267840018 

83.  If  not  CN*4  or'  11*6  or  H*9  or  M“llla]mp  3 
86.  if  Q- 26784004  0,3 to  'PRINT* 


87,  0-2992000)8 

88,  If  not  H-Zijao  1 

89,  if  0-290S600<0,qto  *P8IHT* 

90,  8-2419200)8 

91,  n„t  M 

92,  TRIMT*.)!  0-86400, fid  0,lbl  »tr(0/0> 

93,  tf  0-3600, fid  0,161  ilr ( (0-86400, nt < 0/864 00) > /0> 

94,  if  0-60 i f id  0,161  o t r  f (Q- 3600 1 n t ( 0/3600 > > /DO 
99,  tf  0-1, fid  0,161  itr((0-60,nl<a/60)>/0> 

96,  nril  L.eoii  1 . 9 . 2 . 1 , 90 , pi 1  - 11 . SV ,Ht 1 ) • CHt 2) -Hill) /3,1 

97,  If  8«-*0000000000*,l«o  2 

98,  84(1, 2)«*-*iBt(3, 414*  • tB»(5 ,61 1- , ’ 181(7,811* , * IBI (9, 101 )H4  , ) -o  2 

99,  mod  l.S.T4,T4ll.214*-,4T4f3.41»*  *4T4  19 ,610* ,  •  »I»1 7 .818*  .  ■  H  »19. 101  >H4 

100,  161  *Tloo  to  'iUli*  beq  1  nnl  ng  •  IM0 

101, 

102,  ‘PLOT  DAT**. 

103,  mod  l.K-l)K,T4 ,S.if  T4<84 ,  }  op  8 

104,  rrr.d  1 . K- 1 >K , T4 , B , if  B- S> . 8P , S- P)S , 1  op  2 

109.  If  S-B>.5P,S-P)« 

106.  pll  -CB-S1/I-0, 'TlMC'.l icpll  - . 33, - . 19, 161  *o',eplt  -.67, .19 

107.  for  L-K-l  to  H, BIS, mod  l.L,T«,R,if  Ti>E«iJop  4 

108.  if  R-S>.5P,S-P)S,J  np  £ 

109.  if  S-B>.5P,S-P)S 

110.  pit  -<B-S)/I-0.'T1MC ',2,ne*t  t 

111.  cplt  -.33, -.19, 161  *o*,«tb  'P81HTEB* ,12,13,27,69 

112.  end 

113. 

114.  *TIIi£*, 

119.  Old, for  H-l  to  vil <T4( 1 ,23) -t 

116,  if  H-l  or  li-3  or  H-5  or  11-7  or  H-B  or  11-10  or  M- 12 , 0-2678400)0, J»p  3 

117,  if  M-4  or  H-6  or  M-9  or  N-ll ,0-2592000)0, Jop  £ 

118,  if  14-2,0-2419200)8 

119,  next  1v 

120,  0- 86400 wo 1(T4(3,4)1- 3600 vol<T4(9, 621)6 

121,  ret  a«60val<T«I7,Sl)-val(Tt(9,10)> 

■26709 


aasssssaasaasasaasssmasssssssasaiiassssajtasssasyaHsaHssaasaasasss  SS^S)S*unm5 


Program:  VQFF18 


'PROGRAM,  FRACTIONAL  FREQUENCY  OFFSET  PLOT,  CONSTANT  OFFSET  REMOVABLE* ■ 


■  Kevin  Hiller  ■  rilai  VOFF1S 

■  January  14,  1941  ■  Update.  July  30,  1983 

■  Naval  Research  Laboratory  ■  Output  Device.  1350 

■  Space  Appllcattoas  Branch  ■  Select  Cade.  71B 


•OCT  riLC  NAHE  ANO  PLOT  INTERVAL* • 
dap  "Insert  Seftcapy  Graphics  Tape'jatp 
ldb  1 i dev  *CLOCK',9,flt  11 

dia  rilSI.01ISl,T*(141 ,U*(71 ,Hi(401 ,NI 21, BO (10), £11101,04(101 
dip  6.N,I,P.R,S,L,B.E,H,0.V,K.F|4)K|0>0 
"7Fl,eat  'Enter  Data  File  Neac*,FI|if  flgl3,jap  B 
as<|n  F0.1.1.B 

if  0>l|dsp  Ft*'  dees  not  eeist'ivalt  ISOOiJap  -t 
asgn  Ft,l,l.rread  1 ,1 ,G,N, 1 ,00 ,P 
if  N<3|dsp  'Not  Enough  Data  far  Plot'.stp 
eat  'Plat  Data  fro*.  NMODHHMMSS'  ,B» 
if  flgl3. *0000000000'} B0 

If  len(Bt)rlB,dsp  'Nat  la  Proper  Fpra'iuait  1500 ijap  -1 
eat  'Plat  Data  ta.  WtOOHHilHSS*  ,C0 
if  fig 13) *9999999999 'ICO 

if  len<EI7*10,dap  'Not  la  Propar  Fora'iuait  1500) Jap  -2 
aat  'Enter  off sat  to  reeove' ,0|'0>0)sfg  11 


•CALCULATE  UNITS  FOR  AXES*) 
rrcad  l,K*l>K.T«,S)lf  T»<B».Jap  0 
rrcad  1 ,K«1>K,T0 ,R) 'OATE'INt 1 1 )1»F 
if  R-S>.5P)S«P>S)lap  2 
If  S-R>.SP,S-P7S 
abet (R-S7/I -07 IV) for  L-K»I  ta  N 
R)S>rrnad  l,L.T».R)if  T«>c»|)ap  S 
if  R-S>  5P,S*P»S,Jop  2 
if  S-R>.5P)S-P»S 

if  ab»<<R-S7/I-077V,aba<CR*S7/l-07>V 
F«  1>F  >  non  t  L 

rrcad  1 .L-1.T0 > 'OATE'»NC21 > If  N121-M11 1> 86399) 'DAYS'lUS ,86400)0) Jap  4 
If  HI  21 -HI  1 03599,  *  HOURS*  >U4 ,360010,  Jap  3 
If  N(21-N(11>S9,’HINUTCS*>U», 6010, Jap  2 
•SECONDS' >U0,1 ID 

Dint  CHI  11/OJ  INI  11,  Dial  CHI21/DM7  7HI2] 

1)H, if  t(H(21~H(l]7/D>R7>30,2)M,if  Int CR/2J/R/2 ,H(21 •0)H(2] 
art  'CLOCK*. *«*, rad  'CLOCK* .TO, 4»K 


•INITIALIZE  PLOT  AREA*) 

fed  Oihdcpy  Oipac  718,pclr,sol  0,10.5,0,7. 125,plt  0,0,1 

pit  0,. 75.2, pit  10. 4, .75, pit  10. 4,0, pit  0.0, pit  0.3/lS.!,plt  10.4,3/10,2 

far  L-1.3  ta  9  by  1.3, pit  L.. 75.1, pit  L.0,2,neat  L,csle  1. 5.2.1 

pit  .33,9/10,1 | Ibl  ‘Data*, pit  .3.3.7/10.1,101  'Today* 

pit  .21,1/11 ,1 i Ibl  T0C1.2IA'-'»T8l4,3l4'-'»'80* 

pit  1.03,7.3/10, 1 i Ibl  "Prograa* ,pit  1.0. 1/11.1, Ibl  *Frag  Offset* 
pit  3.23,9/10. lilbl  'Oata  Fllo'iplt  3.37,3.7/10.1 , Ibl  'Naaa* 
pit  3.4. 1/11, lilbl  FO 

pit  4.80.9/10.1, Ibl  'Paints*, pit  4.03.3.7/10,1,101  'Plotted* 
pit  4. 93. 1/11, lilbl  strCF)A*  * 

pit  0.2,7.3/10.1,101  -Frequency', pit  0.1,1/11,1 
fed  2, Ibl  sir Cl/Pala-0)»*  HHa  * 

pit  7.0,9/10, lilbl  'Heasureaeat* iplt  7.0,3.7/10.1,101  "latarval* 

pit  7.0.1/11,1, fed  B,)bl  sir <178*  sees  * 

pit  9.43.9/10,1,101  'Gate* ,plt  9.43.3.7/10,1,101  'Tlaa* 

pit  9.1. 1/11, lifed  8,101  strtGJA'  asaa  ',plt  IB. 4, 1.373.1 

pit  lt.4,7.I23,2iplt  1,7. 123, pit  1,1. 373, pit  18.4,1.373 

pit  1.4. 23.1, pit  10. 4,4. 23, 2, fit  9,10*lnt<log<V777V 

sal  H(lJ-(H(21-Ht 177/9. 4, Ht21»<H(2I-Ht 117/94, -14. 78201V, IBV 


'LABEL  AXES*) 

far  L— 9V  te  9V  by  V,lf  Leo, pit  NI2I,L.l,plt  NI21*(H(21*HC1)7/10B,L,2 


neat  L 

far  L-H12I-MO  ta  Ht!)»M0  by  -HOiplt  L.10V,l,plt  L ,9. 7V, 2, nee t  L 
cats  .7, 2, lifer  L*10V  ta  -18V  by  -V,plt  HC 1)-(H(21 -HI  117/11 .L-.23V.1 
if  L/V-1B  or  L/V**18,fed  1,101  *  '*str<L/V7 ,gta  *2 
fed  lilbl  •  *»strCL/V7 

If  Lf-iov  and  LF18V  and  LrOiplt  Htl],L,l,plt  H(11*<H(2)-NI117/188,L,2 

naat  Liesle  1 .9,2. 1 ,98 ,pl t  HI  1 1- CH121 -Nil 17/12, -3.9V, 1 

101  'Fracttanal  Frequency  Offsat  e  18* 

tplt' CHI11-HI2])/18S,.2V, l,fed  8,101  strCtat(lag(V77» 

csl*  1.3, 2, 1.0, if  flgllrltjap  2 

pit  H(ll*<HI2)-N(117/4.2,9V,l|f It  2,101  strt-078*  effeat  renoved* 
csl*  .7, 2, l,fer  L-HIll  to  HI2J  by  HO,if  L-Nlll  er  L-H(2],jep  2 
pit  L,-9.7V,1 ,plt  L,-lfV,2 

pit  L*<H12I-Ht 117/58.-18. 6V, 1 ,L>Qtf er  H-l  1#  12 

If  net  {H«l-or  N-3  or  M*S  ar  H*7  ar  H*8  ar  H*I8  ar  M-127»Jap  3 

If  0-27S4808<(igta  ‘PRINT* 

0*207048070 

If  net  CM* 4  or  N*0  ar  M»9  er  H«117,|ep  3 


87.  If  0-2678400<0|*la  "PRINT* 

88.  8*2592000)8 

89.  If  not  N*2||a«  3 

90.  If  8-2505600<0|9ta  "PRINT* 

91.  8-2419200)8 

92.  next  N 

93.  "PRINT" • If  D*86400|fxd  O.lbl  »tr(8/D7 

94.  If  D*3600.f zd  O.lol  str((8-B6400i nt (8/86400)) /07 

95.  If  D*60|f xd  Oflbl  xtr((8-3600iat (8/3600>)/D> 

96.  If  D-ltfxd  0 | lbl  >tr{(8-60lnt(a/60))/D7 

97.  next  Licslz  1.5,2.1|plt  MU)  •  (HI  2) -HI  1D/4.2 ,  - 11 ,5V, 1 

98.  If  BO* *0000000000* i  Jap  t 

99.  80(1, 2)4*-‘IBI(3, 4)0*  "IB0I5 .6)0"  .  *480(7,8  U"  .  **Bt(9,10)  >14$  i  Jap  2 

100.  rread  1 ,5.T» ,T*l 1 .214"- "4TI.3.4 14"  "4TII5, 6)4" ." 414(7,814* . "IT*I9,101)H4 

101a  lbl  *  Tlxt  la  " 4U44"  be9inata«  "4N04*  ■ 

lit. 

103.  "PLOT  DATA*  > 

104.  rread  l.K" 1 >K,Tf ,S. If  T*<B*i)ap  • 

105.  rread  l.K-IlK.Tt.RtIf  R-S> .  8P>S"P>S|Jap  t 

106.  If  S-R).8P|S-P)S 

107.  pit  *DATC*.-(R-S>/I-0,l«cplt  -.33.- . 1S| lbl  "a'icpit  -.67.. 19 

108.  for  L-K*l  to  N.RIS.rread  l.L.Tt.Rilf  T4)E0|Jap  4 

109.  If  R-S>.SP|S«P>S|Jap  2 

110.  If  S-Rl.SP.S-PfS 

111.  pit  "DATE" .-{R-Sl/l -0.2 i neat  L 

112.  cplt  -.33. -.15. lbl  *•* 

113.  ead 

114. 

US.  "DATE*. 

116.  0)8. for  N-l  to  valCrtCl, 217-1 

117.  If  N-l  or  N-3  or  N-5  or  N*7  or  H-B  or  N-10  or  N-12|8"2678400)0, Jap  3 
US.  If  H-4  or  H-6  or  N-9  or  N-U  ,8*2592000  J8.  Jap  2 

119.  If  H-2 | 8*24 19200)8 

120.  next  H 

121.  8«86400vol (T$(3.4))"3600val (TO (5 ,6)779 

122.  rat  8-60 val CTO 17 .817 "vat (T4I9.10I7 

>6989 


9.18  Program:  AVG05 


••  'PROGRAM.  OFFSET  FREQUENCY  AVERAGE  PLOT*, 
t. 

2a  'BiaciiiiaaimMattaaiaiaaatMaiiMtiataaMaiMaaiMiaaaaai.a'i 
3a  *■  Kevin  Millar  ■  File.  AVG05 

4a  *■  July  11,  1982  a  Update.  July  II,  1982  a', 

Sa  *■  Naval  fiescirch  Laberatary  a  Output  Device.  7245  a* a 

Ga  *a  Spaca  Appllcatiana  Branch  a  Select  Codea  70S  a*. 

7a  . . . . . . . ........a', 

a. 

9.  'GET  FILE  NAME  AND  PLOT  INTERVAL*! 

10a  dsn  'Insert  Softcopy  Graphics  Tape*. alp 
11a  Idb  1  a dev  'PRINTER' , 706, 'PLOTTER* .703 , 'CLOCK' ,9,f It  11 
12a  die  F 0(61 ,01 161 ,T$tl41 ,U#t 71 ,14*  I  40 1 ,Ht 21 ,11110 1 ,£ St  111 
13a  din  A,B.C,D,E,F,G.I.K,L,M,H,P,a,R.S,U.V,M,X,V,Z|4>K 

14.  "IFOf ent  'Enter  Data  File  Na«e*.F»,lf  flqlS.jap  I 

15.  asqa  FI, 1.1, • 

16.  If  8*1, dsp  r»»*  daas  net  exlat'jvalt  1500, Jap  -2 
17a  a spa  F«,l,l«rread  1 , 1 . G ,M, I ,D0 ,P 

16a  If  N<3|dsp  'Nat  Enough  Data  far  Plet'.stp 
19. 

21.  'CALCULATE  UNITS  FDR  AXES*. 

21.  r read  l.K'llK.TO.S 

22.  rread  l.K'tlK.TO  ,R.  *TIHC*)H(ll|l»r 

23.  If  R-S>.5P,S’P15,lap  t 

24.  If  S-a>.3P|S-P>S 

25.  abs(CR-S7/17)V| far  L-K»l  la  M 

26.  RlS.rread  1.L.T0.K 

27.  If  R'-S7.SP,S«PlSiiap  2 
29.  If  S-R1.5P.S-P16 

29.  If  aba<CR-S)/I)>V,ab*<CR-S)/I))V 

31.  F'llF i nest  L 

31.  rread  1 .L-1.T0, 'TIME' 1M121 . If  H(2I-Htl]>86399, 'DAYS' >U» .8640070, jn»  4 

32.  If  H(2}-Hlll>3S99|*HOURS'>U0|3600IO|la«  3 

33.  If  HI 2) -HI 1)759,  'MINUTES*  )U0 1 60  70 1  jap  2 

34.  'SECONDS* >U0 . 1  >0 

35.  Dint CH( 11/07 1H(1 1 (Dl nt (H(21/D*13 IM121 

36.  DO(l,2]«*-**OOI3.4]*'-'lDS(5,61>TO|4>K 

37. 

39a  'INITIALIZE  PLOT  AREA'. 

39.  fxd  O.hdcpy  lapse  70S,. el  -7. 125 ,1.0 ,10 .5 aplt  1.1.1 

4a.  pit  -.7s.a,2ipit  73,10. 4, pit  a,io.4|Pit  a,o,pit  -s/i6.o.pit  -s/16.10.4 

41.  far  L-l.S  la  9  by  l.Siplt  -3/4.L.ltplt  a,L.2inest  Licsls  1.5,2,1.91 

42.  pit  -7.3/16.. 67. l.lbl  'Oata'iplt  -1/ 16..S ,1 . lbl  Tt 

43.  pit.  -7.5/16. 2. l.lbl  'Proqraa'.plt  -1/16,1.55.1 1 lbl  *  Offset  Freq  Avq  • 
44a  pit  -9/16.3.4. l.lbl  'Data  Flla'iplt  -3. 5/16, 3.6, 1 , lbl  'Naiad' 

45.  pit  -1/16.3.52. l.lbl  FO  4 4 

46.  pit  -9/16.5. 05.1 . lbl  'Pelats'iPlt  -3.5/16,5. l.lbl  'Platted* 

47.  pit  -7.3/16.6.4.1, lbl  'Frequency' .pit  -1/16.6.35.2 
49.  fad  2, lbl  strCl/Pala-610*  HHa  * 

49.  pit  -9/16.7.9, l.lbl  *Measurea>eat*,plt  -5. 3/16, 9.1, lbl  'Interval* 

SI.  pit  -t/16.7.9.1|fsd  I, lbl  strEIIO*  seep* 

51.  pit  -9/16.9.25. l.lbl  'Counter  Gate*, pit  -5.5/16,9.6,1 . lbl  *T1m* 

52.  pit  -1/16.9.35. l.fsd  a, lbl  strtGIa*  nsec* .pit  -1.373.11.4.1 

53.  pit  -7. 125,18.4,2|plt  -7.125, liplt  -1.375,liplt  -1.375.11.4 

54.  pit  -4. 25,1. l.plt  -4. 25,11.4, 2, fit  9,10*tnt<lag(V))lV 

55.  sal  18V.-14.78261V.HI  lJ-fHC2J-Hll)l/9.4.Hf2)*(H(2)-Htll)/94 
56s 

57.  'LABEL  AXES** 

SB.  far  L--9V  ta  9V  by  V,»f  Lrl.plt  L.HfZl, l.plt  L.H12J-(H12]-Hll 77/100,2 « 
59.  next  L 

61.  far  L-HI21-D  te  HtlJ.O  by  -D.plt  10V.L, l.plt  9. 7V,L . 2, next  L 

61.  eats  1.2. 1.99, far  L-10V  te  -10V  by  -V.plt  L-.25V.Hf ll-(Ht2I-H(U>/25,2 

62.  If  L/V48  and  L/Vr-lB.fxd  l.lbl  *  **atrCL/V7,)ep  3 

63.  If  L/V-ll  or  L/V— ll.fxd  l.lbl  strfL/V).]ep  C 

64.  fad  l.lbl  *  'OstrfL/V> 

65*  If  L41BV  and  LP-18V  and  L#0,plt  L, Hill, l.plt  L .HI1) • (HI  2 1 -HI  1 J7 / 100,2 
66.  neat  L.eslx  1.5, 2, 1,180, pit  -5.9V,H(ll-CN(2]-Nm}/13.1 
67*  lbl  'Fractional  Frequency  Offset  s  19* 

69.  lplt  . 2V,CHtll-Hf2]>/t00,l.fxd  O.lbl  strClat (loq(V777 .cstz  1,2,1,99  ' 

69.  far  L-H(ll  ta  HI21  by  D,lf  L-Ntll  nr  L-HfZl.jap  2 
79.  pit  -9.7V.L, l.plt  -10V.L.2 

71.  pit  -10.6V,L-<HI2)-Hlll)/100,i |L18,for  M-l  ta  12 

72.  If  net  CM-t  ar  M-3  or  M-5  or  H-7  or  M-8  ar  M-ll  or  M-127 .lao  3 

73.  If  9-2764B0a<a,9ta  'PRINT* 

74.  0-267840019 

75.  If  not  CH-4  or  H*6  or  H*9  or  M-tlJ,lap  3 

76.  If  0- 26784 00<8.9ta  'PRINT* 

77.  0-259200819 

79.  If  net  M-Z.Jnp  3 

79,  tf  Q-2S05600<0,gte  'PRINT* 

91.  8-241920019  ' 

81.  neat  N 

82.  'PRINT* . If  D*86400,fxd  O.Ibl  slrfO/Ol 

93.  If  0*3601. fxd  O.lbl  strf (Q-864001 nt CQ/8640077 /D) 

94*  tf  0'60|fxd  O.lbl  str((8-36001nt(a/3600)}/0) 

85.  If  D*l,fxd  l.lbl  str<(8-60tnt (0/60)7/01 

86.  nest  L.eslx  1.3.2, 1,91, pit  -ll.SV,Htl).(H(21-HIin/3,l 


ii»t5.e)4*i‘titi7,e>4*i*tT»t9,io>>*» 


87. 

98. 

re. 

90. 

91. 


rrrod  t . 3. T0,T 01 1,210’- *41013.410* 
lbl  ’Tlao  4*  'iUOO*  tmln.im  *414* 


97.  prl 


•PLOT  DATA*. 

•  pc  3>prt  . . . 


PBOGBAH 


*orrsET  frequency*. •  avcragih* 

. .  2,4>X,l>UiO>A 

WIDOHHnrtSS’  ,B8 


93.  cnl  ’Start  Avtraqlnq. 

94.  if  not  flal3. )«p  3  ...  ... 

95.  «cl  -7. 175. 0.8. 10. 5. Pit  -1/16,5. 1 .1 1 lbl  xtrCAl 

96.  alb  ’PRINTER’ .12. 13,27, 69|*p«  tiond  ..... 

97.  if  IcntBi >rl 0 1 d»p  "Hot  la  Proper  rore*i»all  lSOOtJap  -4 
9B<  r  r  rod  1 .8* 1 >C,T » ,S( if  T4<80|Jap  0 

99.  K18 

100.  xnt  ‘Slop  Avcrmlnq.  HPIODHH7V4SS*  ,E8 

101.  if  lcnCEOlrlSidxp  ’Hot  la  Proper  Fora’i«.alt  1500|l*p  -1 

102.  if  £i(8i.dsp  ’Invalid  Entry*i»alt  ISOOilap  -2 

103.  rr rod  1  ,K  •  1  >K , TO  ,R i  if  TifEOiJop  0 

104.  Of 

105.  if  6>£- 2 i dsp  ’Invalid  Entry’, volt  ISOOilap  -10 

106.  OlZ.rreod  1 , B ,TI . S i S ) R) X . ' T I n£ ' )V 

107.  for  lf-8’1  lo  E,R>S,rreod  1.M.T0.R 

108.  if  R-S>.5P|Z-l>Z,iap  2 

109.  If  S-R>.SP|Z’1»Z 

118.  next  H.'TII4E'>W,rread  1 . 1 nl t EE *8) /2> .TO 

111.  pit  ER-X*ZP>/04-YJ.'TlME',Uip«nieptt  -  .  33,-.  IS.  lbl  ’a* 

112.  pit  CR-X«ZP>/CM-V>.'TlfC*.l,2»B 

113.  fat  l,c,3a.el2.Si<ort  16.  l.’a*  ,  C8-X*ZP1/ CI4-Y>  UPC  2 

114.  A*l)A|9to  93 
115 


116« 

117. 

118. 
119 


•TlfC*. 

OlO.for  H-l  to  valCT0fl,23>-»  ...  _ 

_ if  H-l  or  M-3  or  M-S  or  14-7  or  N-8  or  N-10  or  I4-I2ia.2678400)0ijap  3 

120.  if  M-4  or  M-6  or  14-9  or  M-ll  1 0’2592000>0ilap  2 

121.  if  n-2iQ-2419200>a 

122.  next  N 

123.  0*064  0 Oval ET0 13.417  *3600vai CTO  15, 617 >• 

124.  rot  a*60valtTO(7,81)’val(TOf9,101> 
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FROGRAN.  r  A  ACT I ONAL  F RT  QULMCY  orFSCT  v.  TEMPERATURE*  > 

2. 

3. 

■  Few  in  Hiller  ■  rile,  FVTOS  ■*. 

4i 

■  August  23,  1900  *  Updstti  December  20,  1900  ■ 

s. 

■  Naval  Research  Laboratory  ■  Output  Drvicti  7243  •  "* 

6. 

7. 

v  Space  Application*  Branch  a  Select  Code*  703  ■  "« 

•  l 

9« 

•GCI  FILE  NAME  AHO  PLOT  INTERVAL*  * 

ia. 

dap  "Insert  Softcopy  Graphics  Tape* istp 

iii 

ldb  l,dev  ‘PRINTER*. 706. -PLOTTER*, 705. 'CLOCK • ,3  if  1 1  ll,hdcpy  1  tP.e 

705 

12. 

die  ri(6].D«(61.T«l  14]  ,U0(  71  ,M4(  40}  ,Bt  110  },£•(  101,0125,101,  Jt  1251 

13. 

die  HI 21  .CI25] .C.D.F.G.l ,* ,L ,H,N ,P , 0, V,4»K 

14. 

ent  "Enter  Data  File  Namc*,F0 

13. 

aaqa  FI. 1,1,0 

16. 

If  Q-lidap  fti*  does  not  eillt(i«slt  ISOOfjmp  -2 

17. 

•  aqn  Ft,l,i|rread  1 , 1  ,  G  ,  M  ,  1  , 0  •  ,P  ,  J 

18. 

far  L*1  to  Ji.read  1 . OIL! ,Ct (LI . JO (L ,L1 t next  L 

13. 

If  J”0|dsp  "No  Temperature  Oata  Co  1 1 ec t ed" j »tp 

20. 

If  N<3|dsp  "Not  E nouqh  Data  for  Plot"|*tp 

22. 

ort  *Na.  N,.ai 1 .*.aaa  ..a* , f ,d  0 

23. 

far  L*1  la  J ,  s  tr  (OIL  1 5  1U»  ,  1 «  C1LX10,*  0  *  IUII 2 ,21  >U0 

24. 

prt  U4«*  *  ICS 1L1 1 next  L,spe  3 

25. 

ent  "Enter  Temperature  Channel  Number*, M 

26. 

far  L-l  la  J,lf  crLl-W|L)M,dla  AIN,21,qta  *2 

27. 

nest  L|dsp  "Invalid  Entry"jw«lt  ISOOiqto  -f 

28. 

prt  "Typical  Value*!*,"  *|fxd  3 

23. 

for  l«5  to  6%rreod  l,L,T9,R|for  M»1  to  Misread  l,T|next  M 

30. 

prt  *  " »* t r <T7 » next  L i ape  3 

31. 

ent  "Enter  Temperature  Scale  Factor*,! 

32. 

cat  ‘Plot  Data  from.  MMDDHHMMSS*  ,B0 

33. 

If  flql3,‘OOOOOOODOO*>BO 

34. 

If  lenCBtXlO  |dap  "Not  In  Proper  Fora'iwalt  1500timp  *2 

33. 

ent  ‘Plot  Data  la.  mDDHHMMSS*  ,E0 

36. 

If  flql3, *9999999999* >£0 

37. 

If  len(Et)*10 1  dap  "Not  In  Proper  Fora"jvatt  1500»j*p  -2 

38. 

33. 

■CALCULATE  UNITS  FOR  AXES*. 

40. 

dap  "Read 1 nq  Date  From  Disk* 

41. 

rread  1 . X • 1} K . T I , S , 1 f  T«<B*.j.q»  • 

42. 

lir.rread  1 ,K«1>K .TO , R,f or  H-l  ta  Misread  l.T.naxt  H.BTlACF.ll 

43. 

DF.lf  R-S>.SP,S*P>S|)a*  2 

44. 

If  S-R> . 8P.S-P1S  . 

45. 

abs((R-S)/I)Atl .2171V  , 

46. 

far  L-KM  to  N|R>5.rread  l.L.TO.Rilf  TOEliqto  *6 

47. 

F»l>F|for  H*1  to  Misread  l.Tjnext  H.BTlAtF.1,5 

48. 

If  R-S).SP|S<P)Si]ae  2 

43. 

If  S-R>.8PiS-P»S 

so. 

If  abs(CR-S)/I>Air.21)>V|abs(CR-S)/l)>V  - 

31, 

naxt  1. 

52. 

' 

53. 

’SORT  DATA  INTO  ASCENDING  ORDER* » ‘ 

34. 

fsd  0,dsp  *Sortlnq*»slrCF)»*  Oata  Polnla* 

55. 

far  L-l  ta  F-l|AtL.l»M 

36. 

for  N-L-l  la  F|lf  AtH, 1 ]<ACL . 11 » AlH.l 1 1AIL.11 |M> AIN.  11 

37. 

next  N|next  L 

38. 

S3. 

•MORE  CONVERSATION*. 

GO. 

fed  2|prt  "Temperature" , "L iml t i* 9 •  Lows  "  latrCACl ,12) 

61, 

prt  •  Hlqh.  *  Sale (AIF , 1 ]) , spe  3 

62, 

-339>L ieat  'Enter  New  Lower  Llalf.L 

63. 

If  L)A[F,ll|dsp  "Invalid  Entry*|velt  1500 ijmp  -1 

64s 

999)H»«nt  *Cnter  New  Upper  LlalL”,M 

65. 

if  H<A11 .11 tdsp  ’Invalid  Entry*, wall  1500, Jo*  -1 

66, 

for  R-l  ta  F-l|if  A(R,l]>L|jap  2 

67. 

next  R 

68. 

r-R*UF|far  S-l  1#  F-l , A[S‘R-1 , 1 1 » AC S ,1 J  inexl  S 

63. 

far  R-2  ta  Filf  A(R,U>H|]ap  2 

70. 

next  Rijap  2 

71. 

R-ltF 

72. 

IntCAIt.tmHm  lint  CAIF,  1 1*1)  >H121 

73. 

74. 

•INITIALIZE  PLOT  AREA*. 

75. 

D0I1, 210*-* 40*13.4 J»* -* 100(5,6] >T0 

fxd  Oipelnsct  -7. 123, 0,0, 10. 3, pit  0,0,1 

76. 

77. 

pit  -.73,0,2iplt  -.75.10.4ipU  0,10.4iplt  0.0, pit  -5/16,0, pit  -5/16 

,10.4 

78. 

far  L-l. 5  to  9  by  l.Ssplt  ~3/4,L»liplt  0,L,?mext  Ljcalz  1.5,2,1,90 

73. 

pit  -7.5/16,.67,l|lbl  *Dote* ipl t  -1/16, . 5 , 1 , lbl  TO 

80. 

pit  -7.S/16 , 2 , t , lbl  *Proqraa*,plt  - 1 / 16 . 1 .55 , 1 , lbl  *Freq  Offset  v. 

Tap* 

81. 

pit  -3/16. 3. 4.1, lbl  ’Data  File*, pit  -5. 5/ 16,3. 6 , 1 , lbl  *Haae* 

82, 

pit  -1/16.3.S2.1, lbl  F0 

83. 

pit  -3/16.5. 05, l|2bl  *Polnts*,plt  -5. 5/16,5. 1 , lbl  'Plotted* 

84. 

pit  -1/16. 5. 1.1, lbl  str<F> 

83. 

pit  .-7. 5/16, 6. 4.1, lbl  ’Frequency*, pit  -1/16,6.35,1 

86. 

fid  2, lbl  s-tr(l/P*le-6)4*  MHx  • 

76 
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37>  o  1 1  -3/16.7.3.1  i  Ibl  •«(■<  i»r  men  t  •  ,  pi  1  -  3 . 3  /  1 6 , 8 . 1  ,  1  bl  ’Interval* 

03 1  pit  -1/16,7.3.1 1<  >d  O.lbl  itrdlf  net* 

83.  pit  *3/16,3. 33 ,1.1b!  'Counter  Gale*, pit  - 3 . 5/ 16 . 3 . 6 . 1 .  Ibl  'Tlaa* 

30  i  pit  -1/16, 3. 33, t  1 1  id  0.  Ibl  plrtGlt*  •icc'mlt  -1.373,10.3,1 

31.  pit  -7.135.10. 3, 2. pit  -7. 125,1, pit  -1.373,!iplt  -1.375,10.4 

32.  pit  -4.25.1 .1 .pit  -4.25.10.4,2,1  It  9, 1 0* 1 nl ( 1 o, ( V) ) IV 

33.  act  10V.-14.  787GlV.HIl]-CMI2)-HIl]}/9.4,HI2).(HI2J-HtlD/94 

34. 

35.  'LABEL  AXCS* • 

96.  for  L--9V  to  9V  by  V,lf  I/O, pit  L,H(21,l,plt  L .HI 2J- CHI 2) -HI  1 1)/1 00 .2 

97.  nest  t 

98.  far  L-H(2]-l  te  Hlll-1  by  -ltplt  tOV.L.liplt  3. 7V.L .2 . nest  L 

99.  oil  1.2. 1,90, for  L-10V  to  -10V  by  -V,plt  L-.  25V, HI  11  -  IMI21 -Ml  1  Jl/23,1 

100.  If  L/V<0  and  L/V/-10,fsd  1 , Ibl  *  *As tr IL/V1 , j op  3 

101.  If  L/V-10  or  L/V-- 1 0 , f sd  1,1b]  slr(L/V>ijnp  2 

102.  fid  1 , Ibl  *  '4strCL/V> 

103.  If  L/10V  and  L/-10V  and  t/0,plt  L, Hill, 1, pit  L .HI  1 ). (HI2 ) -HI  1 11 /1 08 ,2 

104.  nest  L.cilx  1 . 5 ,2 .1 . 180 ,pl t  -5. 9V.HI 1] - CHC2 ) -HI  1 1>/!3. 1 

105.  Ibl  'Fractional  Frequency  Offset  x  18* 

106.  iplt  .2V,fHIll-HI2J)/100.1,fxd  0,lbl  str  1 1  nt  M  oc,<V)l)  ,  calx  1,2,1,98 

107.  for  L-HU1  to  HI21,lf  L-HI1J  or  L-HI2J,)ap  2 

108.  pit  -9.  7V.L.1  ,pl  t  -10V.L.2 

103.  pit  -10.6V,L-CHt21-Hlll)/100,l,fsd  0,  Ibl  strlDmest  L 

110.  cslx  1.5, 2.1 .90, pit  -ll.SV.Nt 1 !• CHC21-HC 111/3. 3,1 

111.  If  Bta'0000000000*,i op  2 

112.  B*tl,2)l'-'tB»I3,4J4'  ' ,e«I3 .61 4* ■ '4BXI7.8J4* ■ *  18119, lOlini, Jap  2 

113.  rread  1 ,5 .TO  , T *  1 1  .21 4*  -  •  »T*  13,4 1*'  * 4T*  15,614*  .  *4T»(7  ,S1 1*  .  *(Ttt9, 10 1  >148 

114.  Ibl  'Temperature  In  deq  C  beglnnlnq  *4148 

115. 

116. 

117.  'PLOT  DATA*. 

118.  pit  All  ,21  ,Af 1 ,11 ,1 ,cplt  -.33,-. 13, Ibl  'o'icpit  -.67. .15 

119.  far  L-2  to  F, pit  AIL ,2 1 , AIL , 1 1 .2 , next  L,cplt  - . 33.- . 15 , Ibl  *a* 

120.  end 

■  238 


0.  *PROGRAMi  ALLAN  VAR  I  AMCC  PLOT*! 

It 

2.  . . . 

3i  *■  Kevin  Miller  ■  rile.  S1G05  ■•« 

4 1  *■  January  14.  1980  ■  Update.  December  20.  1380  s’. 

5.  * ■  Havel  Research  Laboratory  ■  Output  Device.  7245  B*. 

6.  ’■  Space  Applications  Branch  ■  Select  Code.  705  «•< 

7.  •eeiaaeieeae eeeeeeeeeBi.eeee.ee a. e.ee.e..eaeae a BeeeaeaeeeeBaa*-  a 
8a 

9.  ’GET  FILE  NAME  AND  PLOT  INTERVAL*! 

10.  dsp  ’Insert  Softcopy  Graphics  Tape*,stp 

lit  Idb  1 i dev  ’PLOTTER*. 705. ’PRINTER*. 706, ’CLOCK’, 9*«lt  5 

12.  die  MI81 ,R*C31 ,r«(61 ,01(61. Mil 4 1 ,T«(16] ,F [21 .HI 21 , VI21 ,B*tl01 .Ell 10) 

13.  dla  A.B.C.D.r ,G. J.K.L.H.N.P.O.R.Z 

14a  ’’iro.ent  ’Enter  Data  File  Naae’.Ftilf  flql3i]ap  • 

15.  asqa  Ft,l,l,Q|lf  8-l.dsp  F»»*  does  not  exist’ivalt  1500, jap  -1 

16.  asqa  Ft . 1 .1 1 rread  1 , 1 ,G,H, I ,Dt ,P, 1 nt CloqCI 3 3 >0 

17.  die  SIN-11 ,4»J,lf  N>*6.jap  3 

18.  spc  3,fxd  O.prt  ’Only ’ 1st r CN34*  data* , ’point s  la  this*. ’file.  Must  have* 

19.  prt  ’at  least  6  to’.’do  SIGMA  plot. ’tape  3istp 

20.  ent  ’Plot  Data  froa.  MM0DHHMMSS*  .B0 

21.  If  flql3t *0000000000*180 

22.  If  Ien(8t3ri0|dsp  ’Not  la  Proper  Fora’tvelt  1500|jap  -2 

23.  ent  'Plot  Data  to.  MMODHHMMSS*  ,E0 

24.  If  flql3i ‘9999999999*  >£0 

25.  If  !en(E0>elO|dsp  ’Not  la  Proper  Fora*  .wait  1500  .Jap  -2 
26a 

27.  ’READ  AND  STORE  INTERVAL  DATA* a 

28.  rread  1 . J«1 > J ,T* .  At  if  T»<Bt|]ap  0 

29.  01C1F tf or  L-J’l  to  Ntrread  l.L.T*,Btlf  Tt>E«ilap  5 

30.  If  S-A>.SP,(a-P-A)/I>S(L-Jliiap  3 

31.  if  A-B> . 5P  t  (8.P-A3/I35CL-JI i Jap  2 

32.  (B-A3/I3SCL-J) 

33.  C’StL-Jl*2)C|BIA|F*13F inexft  L 
34a 

35.  ’INITIALIZE  PLOT  AREA*. 

36.  DO (l,2l4*-*tDS(3. 410’-* iOOCS, 611T0 

37.  fed  Ofhdcpy  ltpsc  705isel  -7.125 , 0 . 0 , 10. Siplt  0,0.1 

38.  pit  -.75,0.2iplt  -.75. 10. 4, pit  0,10.4iplt  O.Oiplt  -S/I6,0iplt  -5/16.10.4 

39.  for  L-1.3  to  9  by  1. Siplt  -3/4,L,liplt  0,L.2inext  Ltcxlx  1.5,2,1.90 

40.  pit  -7.5/16.. 67. lilbl  ’Date’iplt  -1/16, .5 .1 . lbl  TO 

41.  pit  -7.5/16,2, 1 1 lbl  ’Proqraa’iplt  - 1/16, 1 .55 , 1 .  lbl  *  Allan  Variance* 

42.  pit  -9/16,3. 4 , 1 1  lbl  ’Data  rtlc’iplt  -5.5/ 16.3. 6. 1 , lbl  ’Naae* 

43.  pit  -1/16. 3.52, lilbl  F0 

44.  pit  -9/16. 5. 05. lilbl  ’Points* iplt  -5.5/16,5,1 i lbl  *  Found* 

45.  pit  -1/16,5.1, lilbl  strCT) 

46.  pit  -7.5/16. 8.4,  lilbl  ’Frequency*  iplt  -1/16,6.35.2 

47.  fed  2| lbl  strtl/Pele-631*  MMe* 

48.  pit  -9/16.7.9. lilbl  ’Measureaeat*  iplt  -5.5/16. 8, l|lbl  ’Interval* 

49.  pit  -1/16. 7.9, lifxd  Oilbl  strCHO*  secs* 

50.  pit  -9/16, 9.25. lilbl  ‘Counter  Gate'iplt  -5.5/16,9.6,1 , lbl  ’Tlaa* 

51  a  pit  -1/16, 9.35. lifed  Oilbl  strtGlt*  asec’iplt  -1.375.10.4.1 

52.  pit  -7.  12S.10.4,2iplt  -7.125.1iplt  -1.375,1, pit  - 1 . 375, 10. 4 , f 1 1  9 

53.  l)Htll|6>Ht21|-151Vtl],-9)VT21|41J 

54.  scl  V121 , 1 . 2391 3V( 1 1 - . 23913VI 21 ,Hl 1]-<HC2 3 -Hi  1 1 3 /9. 4 .HI 2J ♦ CHI 21 -HI 1 33/94 

55. 

56.  ‘LABEL  AXES* a 

57.  far  L*Vfl]«l  to  Vt21-l|plt  L.HlZI.liplt  L ,Mt 21 - . 083 , 2 , next  L 

58.  for  L-H123-1  to  Htll’t  by  -liplt  V(2>,L,liplt  Vt 2 1- . 12 ,L . 2 , next  L 

59.  cels  1,2, 1,90, for  L-V121  te  Vtll  by  -l»plt  L- . 144 ,Hl 1 1- . 25,1 . lbl  *10* 

60.  pit  L-. 06.HI 1 167 ,1 |f xd  Oilbl  str<L> 

61.  If  L/VI1I  and  LfVCRliplt  L, Mill, 1, pit  L ,Htl 083,2 

62.  next  Licslz  1.5,2 .1 ,180 iplt  VI 13 «1 .8, HI  II- . 417,1 

63.  lbl  ’Allan  Variance,  Slqao  (tau3*icslx  1,2,1,90 

64.  far  L-HIl]  to  HI23  by  lilf  L-HUI  or  L-H(2I|jap  2 

65.  pit  VIII*.  12 ,L ,1 irit  Vll],l,2 

66.  pit  VC1I-. 3. L-. 117,  lilbl  ’10'iplt  Vtll-. 168, L-. 03,1, lbl  str(L3fnexl  L 

67.  cslz  1.3, 2,1.96, pit  VC 11-. 32, HI  1 1 *1. 9,1 

68.  lbl  ‘Saaple  Tlae  Ctau3  la  seconds* 

69a 

70a  ’CALCULATE  SIGMA  VALUES,  ERROR  BARS,  AND  PLOT* a 

71a  spc  3, prt  •  Allen  Variance*,*  *,*  Slqaa  Tau* , ’leieeasee  aeaaa* 

72.  11M1  l],2)Mt21|4TT1(31,8>M(41il6)M(51i32)N161i641N(7]|128>M(8] 

73.  far  R*8  to  1  by  -tilf  lot CF/4MIR1 3 <-fl , next  8 

74.  03A|for  K-l  to  4MIR1 |A*CSCK’ll-SIK31*2IA,ne*t  K 

75.  \C.SA/(4MCR]-133IC 

76.  \C12MIRl-43/C4M(R]-13>C 

77.  pit  loq(C«EC3,loqC13-.008,liplt  loqCC’CCl , loqC 1 3 * . 008,2 

79.  pit  loq<C’CC3,loq<13, l,plt  loq(C-EC3 , loqC 1 3 , 2 ip  1 1  loq(C-EC3 , loqC 13- . 008,1 

79.  pit  loq(C-EC7 , 1 oq< 13 • . 008, 2, pi t  loq CC3 , loq< 1 3 ,1 

BO.  fat  9,c9.3,z.T6.0|vrt  16.9.C.I 

91.  far  L’2  to  R|0>A3FC1I 

82.  far  Z*1  to  MCL1 ,Ft 1 1 ’S1Z33FC11 inext  Z 

03.  Ft  1 i/MILl >F 1 1 1 

84.  far  K-MTLI  to  4M1 R1 -MIL1  by  MILIiOIFtZI 
03.  far  Z*1  la  MIL  1 ,Ft 21 ’St K*Z1 >Ft 21 ,nt. t  Z 
86.  F(2l/MCLl>Ft2l|A*(FC2]-Flll3‘2)A|F(2])FtlI|nezt  K 


87.  \(.SA/(«niR)/ntl.]-ime 

88.  WI2nl»l/n(Li-«)/nni«)/M(ll-l)rt 

89.  pit  loqCC}.loq<i*lll>.2ipll  loq(C*rCJ.loq{lHILJ>-. 008,1 

90.  pit  loq<C*CC)  .  loq<  INIL1).  .  008.?, p|  |  loq(OCC)  ,leq<  IHILJ7  ,1 

91.  pit  1  op <  C  -  C  C  ) , 1 oq (IHILJ),2iplt  I oq(C -tC> , 1 oq { IHIL 1 >- . 008,1 

92.  pit  loq<C-CCJ.JoqtIHIU>*.00S,2,pM  1  oq  (CJ  .  1  oq(  IHl  L  1>  .1 

93.  .rt  tS.S.C.imL) 

99.  next  Lixpe  9,«tp  "PRINTCR*, 12. 13.27,69 

9S.  end 
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PROGRAM'  ALLAN  VARIANCE  PLOT* ■ 


><«m  Ml  1 1  CP 

January  14,  1380 

Haval  Research  Laboratory 

Space  Applications  Branch 


■  File.  SIGI8 

a  Update,  December  20,  1380 

■  Output  Drvlcei  120ft 

■  Select  Coon  718 


’G£T  FILE  N  AMC  AND  PLOT  INTERVAL*! 
dsp  •Insert  Softcopy  Graphics  Tape’, sip 
ldb  t i dev  ’CLOCK*  ,9, fit  S 

dia  i4IBl.Rtt31.r»l61.MtI61.Tltl61,FI21.HI21.Vl21,Blll01.E»I101,DII6J 
Ola  A,B,C.0,f  ,0,J.K,L.H,N.P,a,R,Z 

•*ir»,ent  'Enter  Data  File  Hame*,F»,lf  f)ql3,j«p  0 

asqn  Fft,t,X,Q|lf  Q-l,dsp  Flo’  does  not  exist* i«elt  tSOOilap  -I 

asqn  FI ,1 ,1 , rread  1  . 1  ,G ,  N  ,  I  ,  Dt  ,  P  ,  I  n  t  (  1  oq  (  1 1  1  >  0  ,  d  la  SlN-ll,4}J 

If  H<6,spc  3tprt  ’Nat  Enouqh  Oatc’.’to  do  S 1 GNA’ , ’PI ot .  ’  , spe  3iend 

ent  'Plot  Cata  froai  MMDDHHnnSS*  ,BA 

If  f lql3, ’0000000000’)B» 

If  1 en(Bf >el 0 t dsp  ’Not  In  Proper  Fora’, —alt  1500, |ap  -2 
ent  ‘Plot  Data  toi  MMPDHHmMSS’  ,E0 
If  f lql3, *9939999939’ 1E0 

If  1  en(E ft  )el  0 |dsp  ’Not  la  Proper  Fora’prelt  lSODilsp  -2 

*  RE  A0  AND  STORE  INTERVAL  DATA*! 
rread  t , J’ 1 > J , T *  ,  A 1 1 f  TI<B»,Jap  • 

OJOF  if  or  L-J’l  to  N, rread  l.L,Tft,B,lf  TI>E»,j-p  S 
If  B-A3.5P, CB-P-A7/1  ) S IL - J 3 il ap  3 
if  A~B> - SP i (B’P-A3/I 1SCL -  J1 ij ap  2 
cB-Al/llStL-Jl 

C"SIL-Jl*21C,B>A,F*llF,next  L 
•INITIALIZE  PLOT  AREA*. 

fid  Oihdcpy  Oipsc  718,pclr,scl  0 , 2 0 . 5 , 0 , 7 . 1 25 t p I t  0,0,1 

pit  0.. 75. 2, pit  10. 4, .75, pit  10. 4,0, pit  0.0, pit  0 ,5/16,1 ,plt  10.4,5/16,2 

for  L-l.S  to  9  by  1.5, pit  L,. 75.1, pit  L, 0,2, nest  L,cxtz  1.5, 2,1 

pit  .55.9/16,1 , Ibl  *Date’,plt  .5. S. 7/16,1 ilbl  ’Today* 

pit  .21 ,1/11 . 1 , lbl  D*tl.2]»*-*40lt3.41**-*»D»t5,6J 

pit  1.85,7.5/16,1,161  *Proqroa’ ,plt  1.6.1/11.1,161  •  Allan  Var* 

pit  3.25.9/16,1 ,  lbl  ’Data  File’, pit  3. 57 ,5. 7/16, 1 ,  lbl  ’Naaa* 

pit  3.  4. 1/11, t, lbl  FI4*  * 

pit  4 . 88 , 9/16, 1 , lbl  *Po inis’ iplt  4.83,5.7/16.1, lbl  ’  Found* 
pit  4.95.1/11,1,161  strCFl**  • 

pit  6.2.7.5/l6.1,lbl  ’Frequency* , pit  6.15,1/11.1 
fxd  2, lbl  str<t/Pale-6)I’  NHx  • 

pit  7.6.3/16,1 , lbl  "Measurement’ ,plt  7 . 8 ,5 . 7/16 , 1 , lbl  ’Interval* 
pit  7. 6. 1/11 , 1 , f sd  0, lbl  str(I10*  seca  * 

Pit  9. 45. 9/16.1, lbl  -Gate’, pit  3. 45 ,5. 7/ 16. 1 , lbl  ’Tl-a* 
pit  9.1. 1/11.1, fxd  O.lbl  str(G3»*  -see  ’,plt  10.4.1.375.1 
pit  10. 4. 7. 125. 2, pit  1.7. 125, pit  1,1. 375, pit  IB. 4 , 1 . 375, f It  9 
llHtl],G)M( 21,-15)VI13,-9>VI21 

sc  1  Hlll-(HlZ3-Hll33/9-4,HI23*(Hl21-Htll3/94,l.  23913VU3-.  23913VI 27  ,Vt2I 
•LABEL  AXES* a"  ’ 

for  L-Vlll*l  ta  Vt21-l,plt  H(2],L,l,plt  HE2 1  - . 08, L .2, nest  L 

for  L-NI2T-1  to  HI  1 1 • 1  by  -l,plt  L,V(27.1,plt  L  ,  VI 2 1 - . 1 2 . 2 , next  L 

csix  .7. 2.1, for  L-VIZJ  ta  Vtll  by  -l,plt  HI  1 1- . 38, L- . 14 ,1 , lbl  ’It* 

pit  H(ll-.23.L-.06,l,fxd  0, lbl  str<L7 

If  LrVl 1 1  and  LFVI23 ,plt  Hill, L.l, pit  Hlll’.08,L,2 

next  Licslx  1 . 5 , 2 , 1 ,90 , pi l  HI  11  - . 467 , Vt 1 1  *  1 . 8,1 

lbl  ’Allan  Variance,  Stqaa  (taul’icstt  -7,2.1 

far  L-HI11  ta  HC21  by  I, if  L-HU1  or  L-HI2J,)ap  2 

pit  L.Vtll*. 12,1, pit  L. Vtll, 2 

pit  L-.167.Vtll-.3,l|lbl  ’10’,plt  L-. 083. V111-. 168,1, lbl  str(L3,next  L 
eslx  1. 5, 2.1, pit  HI  11*1. 533, VI 11-.54 , 1 , lbl  ’Seaple  Tlae  (tan)  la  seconds* 

•CALCULATE  SIGMA  VALUES,  ERROR  BARS,  ANO  PLOT* i 

spe  3,prt  *  Allan  Variance*.*  *,*  Slqaa  Tea ’, ’xaixsexxc  xsxaa* 

11I4C1 1,2114(21  (41MI31 ,8114141 ,161)4(51 ,321(4161 ,64 1H171 , 1281(4181 
for  R-8  ta  1  by  -l,tf  l nt CF/4MIR13 <-0 , next  I 
OlA.for  K»1  to  4MI R1 ,A*<SIK’ll -SlK15*21A,next  C 
U.5A/<4MlR3-133>C,fnt  9 ,  e9.  3,  x .  f  6.  0  ,<rr  t  16.9.C.1 
\(1214lRl-43/C4MlRl-131E 

pit  IobED-. 008, loqEC’ECl.l, pit  loq(  13  •  .  008 , 1 09  (C’ECl  .2 

pit  loq(I3.1oq(C’EC3.1,plt  loqCIl  ,  loq(CEC>  ,2, pit  loq(I3-.008,lo9CC-EC3,l 

pit  lo4<I3*.0b8,loq(C-EC3,2|Pll  1 oq( 1 3 . loq <C3 ,1 

for  L-2  to  R , 0  > A1FI 1] 

for  Z-I  to  MILliFIll’SIZllFIllinext  Z 

Ft 13/MILllFlll 

for  K-HCLl  to  4MIR1-I4IL1  by  mLl,01FC2l 
for  Z*1  to  MIL1 ,F(23«StK«Z3>FlZ3,next  Z 
FI21/FML31FI21,  A’ (FI  21-F 1 1 13  *21 A  ,Fl  2  1  IF  1 1 1 ,  next  K 
\(  5A/(4MIR]/MIL1-1331C,wi  t  16.9,0, IHt LI 
\U2MtRl/I4ELl-4)/(4MtRl/M(L]-13>E 

pit  Io9(IM(L13,loq(C3,2,plt  loqUHILIl-.  008,IoqCC’EC3,l 

pit  lo3<lMILll’.008,lo<i<C'EC3,2,pll  loqt  INIL  3)  ,  1  o9<C*EC3 ,1 

pit  loq(IMtLll.loq(C-ECl ,2,pll  ioq( IMIL11- . 008, ioa(C-(C> .1 

pit  loq(  1MIL17*  ■  008,  loq(C"ECl  ,2  ,  p  1 1  loq  Uni  L  ) )  ,  1  on  (Cl ,  1  ,  nrs  t  L  ,  spe  3 
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*  SUBPROGRAM  ALLAN  VARIANCE  PLOT* « 


■  Kevin  Miller 

■  January  14,  1980 

■  Naval  Research  Laboratory 
*  Space  Applications  Branch 


file.  .SIGOS  ■* 

Update.  December  20,  1980 
Output  Device.  7245  ■* 

Select  Code.  703 


•initialize  plot  area*. 
if  cr-i>z)>-6ii»p  t 

ape  3.prt  •Hot  Enouqh  Data*, "Yet  to  do  S I GMA* , #PI o t .  •  i  ape  3,qto  'RETURN* 
Dill .2 10* - *»00 13.4 14*- • GO* 15.61 >R0 

fed  O.hdcpy  1 ipic  705 . pc  I r i sc  1  -  7 . 1 25 , 0 , 0 . 1 0 . 5 i p 1 1  0.0,1 
pit  -.75,S,2iplt  -.75, IS. 4, pit  0,10. 4, pit  S.Oiplt  -5/16.0, pit  -5/16,10.4 
for  L*1.S  to  9  by  1.5,plt  -3/4,L,l,plt  0,L,2,neit  Licslz  1.3,2,1.90 
pit  -7. 5/16,. 67,1 ilbl  'Date* iplt  - 1/16 , . 3 ,1 , Ibl  RS 

pit  -7. 5/16, 2.1, Ibl  ‘Proqram* ,pll  -  1 / 1 6 . 1 . 55 , 1 1 Ibl  *  Allan  Variance* 
pit  -9/16,3.4.1, Ibl  ’Data  File", pit  -5. 5/ 16, 3. 6 , 1 , Ibl  ‘Name* 
pit  -1/16,3.52,1 • Ibl  TO 

pit  -9/16, S. 05.1, Ibl  *Polnts*,plt  -5. 5/16, 5,1, Ibl  *  round* 
pit  -l/16.5.1.1,fsd  0 , Ibl  strtZJ 

pit  -7. 5/16, 6. 4.1, Ibl  "Frequency* ,plt  -1/16,6.35,1 
fxd  2, Ibl  str<l/Pele-674*  MHz* 

pit  -9/16, 7. 9,1, Ibl  •Measurement* ,plt  -5. 5/16 , 8, 1 , Ibl  ‘Interval* 
pit  -1/16. 7. 9.1, fid  0, Ibl  st r(!)l*  seea* 

pit  -9/16, 9. 25,1, Ibl  'Counter  Gate*,plt  -5. 5/16,9. 6. 1 , Ibl  *Tlae* 
pit  -1/16,9.35,1 ,  fid  0,  Ibl  strCGli*  n-.ee*, pit  -1.375.10.4,1 
pit  -7.125.10.4,2,plt  -7. 125, I, pit  -1.375,1, pit  -1 . 375 . 10. 4,f It  9 
UHf  n,6>H(21,-lS>VCl),-9)VI21 

sc  1  Vt  21, 1. 23913VI 11- .  2391 3Vt 21 ,Hl 1 1-(H121-Hl 1 11 /9. 4,Ht21* (H121  -HI  117/94 
•LABEL  AXES*! 

for  L- Vt 11*1  to  VC21-1 ,plt  L,Ht2],l,plt  L  ,Ht  21 - . 083, 2, next  L 

for  L-HI21-1  to  Hf 1 !• 1  by  -liplt  VI21,L.l,plt  Vt 21- . 12. L .2 , next  L 

cslz  1,2,1 ,90 , f  or  L-VI21  to  Vtll  by  -liplt  L-. 144 ,Ht 1 1 - .  25 . 1 ,  Ibl  *10* 

pit  L-. 06, Hill-. 167,1, fxd  0 i  Ibl  strCLl 

If  L'Vtll  and  L/VI21 ,plt  L.Htll, liplt  L ,Ht 1 1* . 083,2 

next  L ,cs iz  1.5, 2. 1,180, pit  Vt 1 1 • 1 . 8 ,Ht 11 - .  417.1 

Ibl  "Allan  Variance,  Slqma  (taul*,cslz  1,2,1,90 

for  L-Htll  to  HI21  by  l,if  L-Htll  or  L-Hl21,Jmp  2 

pit  Vtll«. 12.L.1 iplt  Vtll. L. 2 

pit  vril-.3.L-.117,l,lbl  MO*, pit  Vtll-. 168, L-.  05.1, fid  0,lbl  strtLl 
next  L,cslx  1.5, 2. 1.90, pit  Vt 1 1 - . 52 ,Hl 11 .1.9,1 
Ibl  "Sample  Time  (tax!  tn  seconds* 

•CALCULATE  SIGMA  VALUES.  ERROR  BARS.  AHO  PLOT*. 

spe  3,prt  *  Allan  Variance*,*  *,*  Slqma  Tou* ,  *»e«xxxxoe  him  • 

l>Mtll,2)Mt21,4IMt31,8)Ml41,16>Mt51,32>Mt61,64int71,129>Mt81 

for  X-8  to  1  by  -l,lf  1 nt < (Z- 27 /4MI X 1 1 <-0 , next  X 

OlLIH.rread  l,S,R1.R,qsb  ‘READ  NEXT  POINT* 

for  L-l  to  4MtXl-l,ssb  "RE AO  HEXT  POINT* 

H«(SI21-Sll]}~21M,next  L 

\C.5M/C4l4txi-1}7  10, fat  9 , e9. 3 , x , f 6.  0 ,wr t  16.9.0.1 

\C12M(X]-41/C4MX1-1J>C  -  : 

pit  loq(D*EDl .loqCIl-. 008,1, pit  1 oq(D‘EDl , loq( 1 7 ♦ . 008.2 

pit  loq<D«£Dl,loq  01,1, pit  loq<D-ED7 .loqCIl ,2, pit  1 oqCD-EOJ , I09I !>-. 008.1 
pit  loq<D-E01,loq01'.008,2,plt  1 oq (01 , log( 1} .1 
far  Z-2  to  X,  OlDMIHtll  ,rread  1.5.R0.K 
for  L-0  to  H t X ]- 1 1 q sb  'READ  HEXT  POINT* 

Htll-Stll>Htll,next  L,Ht 11/NtZllHllI 

for  U-MfZl  to  4HIX1-NIZ1  by  MtZl 

0 > Hf 2 1 , for  L-U  to  U«H(Zl-l,qsb  ’READ  NEXT  POINT* 

Hl21-SllI)Hl21,next  L ,Ht 21 /Nt Z1 INI 21 
M*CHf2]-Htll)*21N,H(211Htll ,next  U 
\(.5M/(4MtXl/NtZl-lJ)lD,vrt  16.9,0, IHtZl 
\(12ntXl/MtZl-4>/(4MtXI/MIZl-l)»E 

pit  1 oq (01 , loqCIMfZll ,2, pit  loq(D-E01 .loq(IMtZl)-.  009,1 

pit  loq(0-E01, loftEIMtZll*. 008, 2, pit  loq (0-ED1 , 1 oq ( INtZll ,1 

pit  loq(0-EDl,loq(IMtZll,2iplt  loq(D-EDl.Ioq(IMtZl>-. 008,1 

pit  loq(0-E01,loq<lMlZl>».  008, 2, pit  loq(D)  ,  loqdntZll  ,1  ,next  Z,spe  3 

vtb  ‘PRINTER*, 10. 13, 27, 69 

•RETURN*. ret 

•READ  HEXT  POINT*. 

St  1 1 1SI2] 1 f xd  0 , r r ead  1,L‘6,R0,S 
If  R-S>.4P,<S-P-R1/!>S11J 
If  S-R>.4P,(S*P-Rl/I>Stll 
(S-Rl/IlStll 1 S) R , ret 


*23276 


'SUBPROGRAM!  ALLAH  VARIANCE  PLOT*! 


3.  '■  Kevin  Hiller 

4b  '■  January  H,  1980 

Si  '■  Haval  Research  Laboratory 

61  Space  Applications  Branch 

7,  . . 


•  niei  .  S1G18 

■  Updatei  December  20,  1980 

■  Output  Devicei  1350 

■  Select  Codei  718 


9.  'INITIALIZE  PLOT  AREA*  i 

10.  if  CK-11Z11-6, jmp  2 

11.  spe  3iprt  'Hot  Enough  Data*. 'Yet  to  do  S I GMA' , 'Plot . * i spe  3,gto  “RETURN* 

12.  fxd  O.hdcpy  O.psc  718,pclr,scl  0 . 10 . 5 ,0 . 7 . 125 ipl t  0.0.1 

13.  pit  0,.  73 . 2 i p 1 1  10.4.. 75  f  pi t  10. 4,0, pit  O.Otplt  0,5/16,1, pit  10.4,5/16.2 

14.  far  L-1.5  to  9  by  1.5,plt  L,. 75.1, pit  L, 0.2, nest  Lieslz  1.5, 2.1 

15.  pit  .55 ,9/16 , 1 1  Ibl  'Date', pit  .5 .5. 7/16 . 1 , lbl  'Today* 

16.  pit  .21. 1/11,1, lbl  DOll,210*-*iOOl3,410*-'tDttS,6)0*  * 

17.  pit  1.85. 7. 5/16,1,  lbl  'Program' ,pl t  1 . 6 . 1/1 1 . 1 , lbl  *  Allan  Var* 

18.  pit  3.25,9/16,1 ,  lbl  'Data  File*, pit  3.57 ,5. 7/16, 1 , lbl  'Hame* 

19.  pit  3.4. 1/11.1, lbl  Ft«*  * 

20.  pit  4. 88, 9/16.1, lbl  'Points', pit  4. 83 ,5. 7/ 16 , 1 , lbl  *  Pound* 

21.  pit  4. 95, 1/11.1, fxd  0 , lbl  strCZ) 

22.  pit  6.2.7.5/16.1  ,lbl  'Frequency* , pit  6.15,1/11,1 

23.  fxd  2, lbl  strll/P«le-60*'  MHz  * 

24c  pit  7. 6. 9/16.1, lbl  'Measurement* iplt  7. 8 ,5. 7/16 , 1 , lbl  'Interval* 

25.  pit  7. 6, 1/11.1, fxd  0 , lbl  strCIJI'  sees  • 

26.  pit  9.45.9/16.1,  lbl  'Gate', pit  9. 45 ,5. 7/16 ,1 , lbl  “Tima* 

27.  pit  9. 1,1/11.1 , fxd  0,1b!  str(G)«*  nsec  *,plt  10.4.1.375,1 

28.  pit  10.4,7. 125. 2, pit  1.7.12S,plt  1.1. 375, pit  10. 4 , 1 . 375, f It  9 

29.  1JHI1  ),6>H!2J  ,-15)Vt  1J,-9>V121 

30.  sc  1  Hll]-lHf2]~Ht  Il>/9.4.HI21'IH121-Htll>/94,1.23913V111-.23913V121.V121 

31. 

32.  'LABEL  AXES*, 

33.  for  L-VlllM  to  Vf2J-l,plt  Ht2I.L.l,plt  HI  21- .  08,  L  .2,  next  1 

34.  for  L-H121-1  to  Hlll*l  by  -l,plt  L,VI2].l,plt  L , VI 21- .  12 .2, next  L 

35.  esix  .45. 2.1, for  L-V12J  to  VIII  by  -l,plt  Hill- -38.L- .  14, 1 , lbl  '10* 

36.  pit  Hill-. 23, L-. 06,l,fxd  0,fxd  0,lbl  strlD 

37.  If  L'Vtll  and  L/V(21,plt  Hill, L.l, pit  Htll*.08,L.2 

38.  next  L , cs 1 x  l.S.2.1,90,olt  Hill-. 467. VI 11*1.8.1 

39.  lbl  'Allan  Variance,  Sigma  (taul',csiz  .58,2.1 

40.  for  L-Hlll  to  HI 21  by  l,if  L-Hlll  or  L-Hl21,]mp  2 

41.  pit  L.Vlll*. 12.1, pit  L.V111.2 

42.  pit  L-.167.VIll-.3.1,lbl  '10', pit  L-.083.V111-. 168.1 

43.  fxd  0,lbl  str (LI , next  L 

44.  calx  l.S.2,1  ,plt  Htll't. 533. V111-. 54,1,  lbl  'Sample  Time  Ctaul  in  seconds* 

45. 

46.  'CALCULATE  SIGMA  VALUES,  ERROR  BARS,  AND  PLOT*. 

47.  spe  3,prt  *  Allan  Variance*.*  ",*  Sigma  Taa* , ••...«..«■  aeaaa  • 

48.  l)Htl],21MI2]|4}Ml31,81l1f4],16>Mt31i32>MI6],64>l4t7),1282Ml8I 

49.  for  X-8  ta  1  by  -l,tf  int  UZ-23 /4MI X 1 1  <-0 ,  next  X 

50.  OlLlN.rread  l.S.RO.Rigab  'READ  NEXT  POINT* 

51.  for  L-l  ta  4(41X1-1 , gab  'READ  NEXT  POINT* 

52.  H«<Sl21-Sll]}-Z>H,next  L 

53.  \C.SH/l4MtX]-l>]>D,fmt  9,e9. 3,  x .  f  6.  0  ,ar  t  16.9,0.1 

54.  \C1214EX]-41/t4HtX]-l}>C 

35.  pit  logl!)-. 008, logCD«ED) , 1 ,pl t  login*. 00B,loglD*ED> ,2 

36.  pit  login, logtD'EDl.l, pit  logll)  ,  logCD-ED)  .2, pit  logl  11 -.  008,  log(D-ED}  ,1 

57.  pit  login*. 008, loq<0-ED),2iplt  1  oglll ,  loglO)  ,1 

58.  for  Z-2  to  X , OlLlHIHt  11  ,rr ead  l.S.RO.R 

59.  for  L-0  ta  MtXI-l,gsb  'READ  NEXT  POINT* 

60.  Htll*Slll>Hlt]  ,  next  L  ,Ht  1 1  /PIlZl  >Hl  11 

61.  for  U-MIZ1  ta  4MIX1-MIZ]  by  HtZl 

62.  0IHl2I,for  L-U  to  U*MCZl-t,gsb  'REAO  NEXT  POINT* 

63.  Ht2]*Sll])HtZ),nezt  L ,Ht 21/141 Z1 1H121 

64.  M»lHf2]-Htl])~2)l4,HC2]>H(ll|next  U 

65.  M.514/ 14MI XI /MIZ1  -  111  ID, wrt  16.9.D.INIZ1 

66.  \ll2mxi/MlZl-41/l4MlXl/l4lZl-llie 

67.  pit  logClf4fZll,logfO>,2,plt  logl  1MIZ11- .  008, 1  oglD*ED>  ,  1 

68.  pit  logtlMtZD*.  008,loglD'ED)  ,2, pit  log  t  IMIZ11 ,  log  ID'ED)  ,1 

69.  pit  IogtII4lZl),loglD-E01,2,plt  log  11MIZ1 1- .  008,  1  oglD-EDl  ,1 

70.  pit  loqtl(4fZ]>*.008,loglD-EDl,2iplt  log  (  II4CZ1)  ,  1  oglDl ,  1 ,  next  2, spe  3 

71.  'RETURN*. ret 

72. 

73.  'REAO  HEXT  POINT*. 

74.  Slll>Sl21,fxd  Oirread  l,L*6,Rt,S 

75.  If  R-S>.4P,(S-P-R)/I>Slll 

76.  If  S-R>.4P,tS'P-R}/I>Stll 

77.  tS-R)/nStll,S}R,ret 


P r o g  r  am 
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•PROGRAM*  VOLTAGE  DATA  PLOT* • 


■  Xev,e  Hiller  a  Tlla,  PLOOS 

a  January  14,  1980  a  Update,  July  29,  1982  a* . 
a  Naval  Research  Laboratory  a  Output  Drvtce,  7245  a*a 
a  Space  Applications  Branch  a  Select  Coda,  705  a*  a 


•GET  TILE  HANC  AND  PLOT  INTERVAL** 
dsp  "Insert  Soflcopy  Graphics  Tape*,stp 
ldb  1 i dev  •PRINTER", 706, "PLOTTER*. 703, •CLOCK*, 5 
dlo  ril6).0MGl.TM141,UM71.MM401.Ht21.VI2],8S(12],EMI21 
die  CE26]  , CM 25,101  ,Jt( 25) 
die  C.O.E.r .6,1 ,J,K,L,n,H,P,Q,X,Y,Z|4>K 
""irOaent  "Enter  Data  File  Haec",FS,lf  flql3,Jop  0 
asgn  Ft ,1 ,1,8 

If  Q- 1 , dsp  F$t*  does  not  enlst*,valt  ISOOiJop  -2 

as**  F  t , 1 , 1 i rread  1 , 1 ,6 ,H , 1 ,0* ,P , J 

if  H<3adsp  "Hat  Enouqh  Dote  for  P!at*jatp 

far  L-l  to  Jasread  1  ,CIL1  ,CML  1 ,  J«  IL  ,L)  i  neat  L 

ent  "Plot  Data  fro*,  NN00HHMNSS" ,80 

if  flql3, *0000000000*180 

if  lentBOXIOidsp  "Not  in  Proper  Fara*|vait  lSOOijap  -2 
enl  "Plot  Data  tea  MMDDHHfinsS"  ,E0 
if  f  lq  13,  "9999999999"  >E0 

if  lenCEtlAlO, dsp  "Not  in  Proper  Foro*|a,ait  1500, Jap  -2 
ent  "Channel  to  be  Plotled*,E 

if  E<0  or  £139, dap  "No  Such  Channel  Huaber*,stp 
for  L-l  to  J»lf  C(L1-E,)aip  3 
neat  L,fad  0 

dsp  "No  Data  Collected  at  Channel ".£, wall  1500, Jap  -4 

•calculate  units  for  axes** 

0>C>Z>01R>a>Hlll>H121>VCl]>Vt21|L>E 
rread  1 ,K*1)K.T* ,C| if  Tt<B»,)np  0 

1 IF , for  L-t  to  E , sr  end  t,C,neat  L i *  TINE  *  INI  1 1 ,C> VI 1 11VI2) 

for  L-X-l  to  H,rread  l,L.T*,C|if  Tt>Ei,)ep  5 

F-llF,for  5-t  to  Eisread  l.C,next  S 

if  CCVtl],C>Vlll 

if  OVI21  ,C)VC23 

neat  L  . 

rread  1 ,L'l .TO, "TINE'lHtll  , 

if  HI 21  -Htl  1186399,  " D AYS ">Ut ,8640018, 4 
if  Ht21-Htll>3599, ‘HOURS" lUi , 360 0>0 , l«p  3 
if  HI21-HI11159, ■NINUTES">U0,60>D,lap  2 
•SECONDS ">US, 1IO 

Dint CH{ ll/D>THtll,DlntCHI21 /D*1))H(2) 

lenCCMEll>X,lntCCll-Xl/21>V 

for  L-X*l  to  1»,"  "1CME.L.L1 , neat  L 

for  L-X-V  to  V-l  by  -1  ,CttE,L-V.L-rl  ICtCE.L  ,L)  ,next  t. 
for  L-l  to  Y,*  "  1C4CE  ,1.  ,L1 ,  neat  L 
DM1,21A"-*40M3,4]«"-’4DSC5,6]>T*|4>K 

"INITIALIZE  PLOT  AREA’S 

fad  Ojhdcpy  l,psc  703,scl  -7. 125 ,1 .0 ,10.5 ,plt  t.0,1 

pit  -.75. 0.2, pit  75,10. 4,plt  0,10. 4, pit  0,0, pit  -5716.0, pit  -5/16,10.4 

for  L-l. 5  to  9  by  1.5,plt  -3/4,L.l|pll  0,L.2,neat  L,cstx  1.5,2,1,98 

pit  -7.5/16..67.1,lbl  'Date*, pit  -1/16, .5 . 1 , lbl  TO 

pit  -7.5/16.2,1,  lbl  "Proqrn**"  ,plt  - 1 / 16 . 1 . 82 . 1 1  lbl  ‘Channel  Plot* 

pit  -9/16, 3. 4.1,1b!  "Data  Flle",plt  -5. 5/16,3. 6, 1 , lbl  "Nasw* 

pit  -1/16, 3.52.1, lbl  F0 

pit  -9/16.5.05.1, lbl  "Points* ,plt  -5. S/16, 5, 1 , lbl  "Plotted* 
pit  -1/16,5. 1.1, lbl  strCFT 

pit  -7.5/16.6.4.1 ,lbl  "Frequency*, pit  -1/16,6.35,1 
fad  2, lbl  str(l/Pete-G>»"  NHl  • 

pit  -9/16, 7. 9,1,  lbl  "Weesureoenfipll  -5.5/16,8,1 ,  lbl  "Interval* 
pit  -1/16, 7. 9.1, fad  0 , lbl  strEIIl*  sees* 

pit  -9/16, 9.25, l,lbl  *  Channel  *,plt  -5. 5/16,9.6,1 , lbl  "Naoe* 
pit  -1/16. 9.35.1, lbl  CMEIiplt  -1.375,10.4.1 

pit  -7. 125, 10. 4, 2, pit  -7. 125,1, pit  -1.375.1, pit  -1 . 375, 10. 4,f 1 1  9 

scl  VC 2) , 1 . 23913VI 1) - . 23913VI 21 ,Ht 11  -  CHI 2I-HI 111/9. 4 .HI  21 ♦ CHC21-HI 1 11/94 

"LABEL  AXES’. 

for  L-VI ll-CCVI 23-Vt 11)/10>C)  to  VC21-C  by  C,pll  L.H121.1 
pit  L,H(21-CHf 21 -HI 111/100,2, neat  L 

for  L-MI21-D  tn  HItl-D  by  -Oiplt  V(2],L,l,pit  VI2I-C/7.L,Z,neat  L 
c s lx  1,2, 1.90, for  L-VI2]  to  VII]  by  -C,plt  L-C/10.HI 1 1- IHI21 -HI 1 11/21 ,1 
fad  3, lbl  strCL) 

tf  LrVtll  or  LrVI2I,pll  L, Hill, 1, pit  L.Ht 1 1- IHI 23 -Htlll/100 ,2 
neat  L,cslx  1.5,2, t .180, pi t  VI 1 1-3. 51C .HI  1 1 -CHI 21-HI 1 11/12,1 
tf  JtIE,El**D" i "DC  Volts" >M0 
tf  JO IE, El- "A’, "AC  VoIts’lNO 
tf  JME,E3-"0",  "Ohos"  1N0 

fad  0, lbl  "Channel  "tslrCCIEllt*  C’iNti*}  ",esli  1,2,1,90 

for  L-Hlll  to  H12I  by  0,lf  L-Vtll  or  L-VI21,)op  2 

pit  V(ll«C/7,L,liplt  V(ll,L,2,plt  Vtll-C/2.4,L-CHI21-HItll/100,I 


87.  DO, far  H-l  ta  tt 

88.  If  not  <N-1  or  H'3  or  H*5  or  14-7  of  11*8  or  H-10  of  14*12)  t)ap  3 

89.  If  9-2764800<0iata  “PRINT* 

90.  8-2678400)8 

91.  If  not  <71*4  or  “1-6  or  PI-9  or  PI-11)  i)np  3 

92.  If  Q*2678400<0i4ia  “PRINT* 

93.  0-2592000)8 

94.  If  not  14*2, )og  3 

95.  If  9-2505&00<0,sto  “PRINT* 

96.  0-2419200)9 

97.  nest  N 

98.  “PRINT*. tf  0-86400 i f id  O.lbl  itr<a/0> 

99.  tf  0-3600 1 f xd  O.lbl  str < <0-864 00 i nt (Q/864 00) > /D) 

100.  If  0-60 1 f xd  O.lbl  itr((8-3600lnt(8/3630))/D> 

101.  tf  0-1 1 f xd  O.lbl  »tr( C0-601 nt (0/60)7 /D) 

102.  next  Lieut  1.5, 2.1, 90. pit  VI 1 1- .  81C  ,Ht  1 1 .  <H!2)-Hf  1 1) /3,1 

103.  tf  Bt - * 00 00 0 0 000 0* . 1  up  2 

104.  8*11, 2)0*- *tBfI3, 410*  “ 184 15 .614“ . “ t Bt t 7 , 81 0“ . “ 181 1 9. 1 0 1 >H0 , Jap  t 

105.  rread  1 ,5 .TO , Tl 1 1 ,2 10* - • 0 7 » 1 3 , 4 11  *  *01015,610*. “010(7,810*.  * OTO  I  9,101 >H0 

106.  lbl  “Tim*  la  “0000*  beslnnlne  ‘till 

107. 

108.  “PLOT  DOTH* i 

109.  rread  1 ,K <1 >K ,T0 ,C , If  T0<80,Jnp  8 

110.  for  L-l  to  C.aread  l,C.next  L 

111.  pit  C.'TIHC'.l icplt  -.33,- . 15. lbl  *o*ieplt  -.67. .15 

112.  far  L-K»l  to  N.rread  l.L.TO.C.lf  T0>E0|lnp  3 

113.  for  S-l  to  E.aread  l.C.nexl  S 

114.  pit  C. 'TIME', 2, next  L 

115.  pen. cplt  -.33,- . 15 . lbl  *o*.*tb  “PRINTER* ,12,13,27,69 
116#  end 

117. 

118.  “TIME*! 

119.  0)9, for  H-l  to  val <T0l 1 , 211-1 

120.  tf  N-l  or  H-  3  or  H-5  ar  PI-7  or  N-8  or  PI-10  or  N-12,a-2678400)9, jap  3 

121.  If  N-4  or  PI-6  or  PI-9  or  14-11 18«2592000)0, jnp  2 

122.  tf  14-2  i Q- 24 19200)8 

123.  next  N 

124.  Q« 864 00 val <T 0 (3, 4 1)« 360 Oval CT015, 61)78 

125.  ret  9“60val (TOC 7 ,8]}-val CTO  19,181} 
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■PROGRAM,  VOLTAGE  DATA  PLOT*' 


*■  Kevin  Miller  a  rile.  PL018  ■  *• 
•a  January  14*  1981  a  Update*  December  20,  1980  a*t 
•a  Naval  Research  Laboratory  a  Output  Device,  1350  ■*, 
•a  Space  Applications  Branch  a  Select  Code,  719  a* , 


•GET  TILE  NAME  AND  PLOT  INTERVAL*' 
die  •Insert  Softcopy  Graphics  Tapc’istp 
Idb  ltdev  ■CLOCK*, 9 

die  r*(61  ,DI  161, Cl  261 , CM  25, 10] .  Jt(251,H(2)  ,VI21  ,  Ul  I  7]  .Ml  M0  3  ,  T  4 1 14 1 
die  80(143.81(123, £4(123, F.K,4>K 

• *)F4 , ent  ’Enter  Data  Tile  Hone*, FI, If  fl<,13,Jep  0 

as,'  F0,l,l,Q,lf  art iqto  *2 

dsp  FI0*  docs  net  exist*, vatt  1500, <,te  -2 

asqn  F4,l.l,rread  1 ,1 ,G,N. I ,D4 ,P,J 

if  J-0,spc  3,pr t  ’No  VOLTAGE  DATA* , ‘Obtained  thl s *  ,  ‘Test . * i spe  3, end 
If  N<3,spc  3,prt  ’hot  Enouqh  Data’.’to  do  VOLTAGE* , ’Plot. * , spc  3, end 
ent  *Plol  Data  from,  MMODHrlMMSS*  ,80 
If  flql3, *OOOOOOOODO/)BO 

if  1 enCBI ) rl 0 i dsp  'Net  In  Proper  Fora*, vatt  ISOOiJep  -2 
ent  ‘Plot  Data  to.  nplODHHnnSS*  ,£l 
if  flql3i  *9999999999*  >E0 

if  lenCE43/10,dsp  ‘Not  in  Proper  Fora*,vait  1500, jnp  -2 
for  L-l  to  Jisread  1 , Cf  L 1 , CH L 1 ,  Jl f L  ,L  1 ,  next  L 
ent  'Channel  to  be  Ptotied*,E 

if  E<0  or  £>39,dsp  *No  Such  Channel  Number ',stp 
for  L-l  to  J,lf  ClLl'EtJap  3 
next  L 

fed  0 , dsp  *Ha  Oats  Collected  at  Channel*, Eiwait  1500, ate  -4 

'CALCULATE  UNITS  FOR  AXES*' 

0>C>Z>DlM>a>H(l]}H(2}>Vtl]>Vt2],L>E 
rresd  1 . X • 1 >K , Tl , C , 1 f  T4<B4,lmp  0 
UFifor  S-l  to  Eisread  l.Cinext  6 
*0ATE*)Htl)|C>V(ll)Vt2l 

for  L-K-l  to  N32,rread  l.L,T«,C,if  T4>Ct,]mp  5 
for  S*1  to  Eisread  l,C,next  S 
if  C<Vll],C>V(l] 
if  C>V(21 ,C>V121 

F* 1 >F ,  next  L  ** 

rreod  1, L-l, TO, 'DATE '7 HI 21 

if  H(21-H(lI786399i’DAYS’lUt,86400)D,iap  4 
if  Hf 21-Ht 1 173599 ,  *  HOURS '1U0 , 36001D, ]ep  3 
if  Hl21-H(ll>S9i*MIHUTCS*)U0,6O>D,]ep  2 
‘SECONDS  * }U0 1 1 19 

Dint CH111/D7 »HI 11, Dint CH(21/D*1) >Ht22 

1)N, if  (CHI21-HE  113/D>R3>30,27M, if  1 nt ER/23 rR/2 ,H( 23 *0)H(21 

‘INITIALIZE  PLOT  ARE«*a 

met  ’CLOCK*. *R*, red  'CLOCK*  ,T0  ,4HE 

fxd  0,hdcpy  0,pse  718,pclr,sel  0,10. 5, 0,7, 125, pit  0,0, t 

pit  I, .75, 2, pit  10. 4, .75, pit  10. 4.0, pit  0.0, pit  0,5/16,1, pit  10.4,5/16,2 

for  L-l. 5  to  9  by  1.5, pit  L.. 75,1, pit  L, 0,2, next  L,cslx  1.5, 2,1 

pit  .35,9/16,1 | lbl  'Date', pit  .5,5.7/16.1 , Ibl  'Today* 

pit  .21, 1/11.1, lbl  Till, 2J0'-*IT414, 530’ -80  • 

pit  1.85. 7. 3/16.1, lbl  ’Proqrae* ,plt  1 . 61 , 1/11 , 1 , lbl  ‘Channel  Pit* 
pit  3.25, 9/16. l,lbl  'Data  Fllc’iplt  3.57,5. 7/16, 1 , lbl  *Neae* 
pit  3.4, 1/11,1, lbl  FIO*  • 

pit  4.88.9/16.1, lbl  'Points*, pit  4.83,5. 7/16,1 , lbl  ’Plotted* 
pit  4.95,1/11,1* lbl  str<F30*  * 

pit  6.2. 7. 5/16,1, lbl  ‘Frequency*, pit  6.15,1/11,1 
fxd  2, lbl  strCl/Psle-630'  MHx  • 

pit  7.6,9/16,1 , lbl  'Measurement  * ,pl t  7. 8 ,3. 7/16, 1 , lbl  'Interval* 
pit  7. 6, 1/11.1, fxd  0,lbl  ,tr(!)0*  secs  * 

pit  9.28, 9/16, 1 , lbl  'Channel', pit  9. 45 ,5. 7/16,1 , lbl  *Neee* 

CKEllRt  ,f  or  L-l  to  3- int  <  1  entRI) /2)  ,  •  *IRI>Rt,next  L 

pit  9.05, 1/11.1, fxd  0 , lbl  Rtiplt  10.4,1.375,1 

pit  10.4,7. 125, 2,plt  1,7. 125, pit  l,1.375,plt  10. 4 , 1 . 375, fit  9 

set  HC ll-OU 21 -  HI  117/9.4, H(21*tHt 21- HI  113/ 94,1. 239t3V(ll-.23913V(21  ,V122 

'LABEL  AXES*! 

for  L-Vll l-<  EVE21-VI 1 13/107C7  to  V121-C  by  C,plt  HI21;L,1. 
pit  HI2]-(H(21-H(ll)/100,L,2,next  L 

for  L-HI21-WD  to  H(1I*MD  by  -WDiplt  L.V(21,l,plt  L .V123-C/7 .2, next  L 
calx  .7, 2,1, for  L-V121  to  Vlll  by  -C,plt  Ht 13 - (H123 -HI  1 33/12.5 ,L-C/10,1 
fxd  2,lbl  strCLJ 

if  L/Vlll  and  L/V(21,plt  Hill, L.l, pit  HI 1 3 ♦ (HI 23 -Ht  1 37/100, L, 2 
next  Licsiz  1 .5 ,2, 1 ,90, pi t  HI  1 1- CHI 2 3 -HI  1 3 3 /1 1 , VI 1 1 '3. 1C,1 
if  J0IE  ,E1  *'D*  ,  *0C  Velts'3141 
if  J01E,E1.*'A*  ,  *AC  Volts'im 
if  JttE,El-*O*i*0hei'lH0 

fxd  0, lbl  'Channel  *lstrCC(C130*  CINIO'3  *,csli  .7,2,1 
for  L-HI11  to  HtZl  by  WD,lf  L-HllI  or  L-H(2!,)ep  2 
pit  L.Vtll-C/7,l,plt  L,V( 11,2 


87.  pit  L-(H(2)-Hll))/S0.VIll-.3SC.l|L)Qifor  *-t  to  1* 

88i  if  not  CH-t  or  H-3  or  W-S  or  PI- 7  or  14-8  or  PI-10  or  n-127.]ap  3 

88.  If  8-2764800(0 into  *PR1HT* 

80  i  B-2G7B<00>8 

8t  i  if  not  (PI-4  or  H-6  or  PI-9  or  Hall)|jop  3 
82.  If  Q-2G7y400<0iqto  •P8IHT* 

93.  8-2592000)8 

94.  |f  not  M*2il«p  3 

95.  If  0-2505600<0.<jto  'PRINT* 

96.  8-2419200)8 

97.  nest  N 

98.  •PRIKT'.if  D-864  0  0  1  f id  O.lbl  »tr(Q/0> 

99.  If  D-3600.fsd  O.lbl  s tr C (0-864001 nt CQ/8S4007) /D) 

100.  if  D-60 1 f  sd  O.lbl  s tr < (0-3600 1 nt (8/3600) )  /D) 

101.  If  0‘lifsd  O.lbl  str( (O-601nt (8/60)7/0) 

102.  nest  l.csls  1.5. 2,1, pit  HI  1 7 ♦ (HI  2 1 -HI  1 ] ) /4 . 2 ,Vt 1 1- .  8SC.1 

103.  If  B4-*0000000000*.)»p  2 

104.  B4I1,214*-‘1B4(3,4]4*  *  IB»(5 ,61  4*  .  *4841  7 , 81 4*  .  *  IB*  ( 9. 1  0 1714*  . )  op  t 

105.  rreod  1  .5  ,T$  .  T  4 1 1 .214*  -  *  47 1  (3, 4 14*  *41415 .674* .  *4T4I 7 , 87  4*  .  *  4T*(9, 103)118 

106.  lbl  *Tlne  in  ‘4UI4*  beqlnn.no  *41-144*  • 

107. 

108.  ‘PLOT  0ATJ»*i 

109.  rreod  1  ,K  ♦  1  7C  .  T4  ,  C  ,  If  TKBt.Jop  f 

110.  for  5*1  to  E.sread  l(C,nezt  S 

111.  pit  'DATE* ,C,1 icplt  -  .  33 .  -  .  15 .  lbl  *o*,eplt  -.67, .15 

112.  for  L-K*  1  to  N, rreod  1 ,L ,T4 . C . I f  Ttltt.loo  3 

113.  for  S*1  to  E.sread  l.C.next  S 

114.  pit  'DATE' ,C,2.nezt  L 

115.  pen.eplt  -.33.-.  IS. lbl  *•* 

116.  end 
117s 

118.  -DATE*. 

119.  0)0, for  N»1  to  va  1 ( T  4 1 1 , 2 1 ) -1 

120.  If  H-1  or  PI-3  or  PI-5  or  PI-7  or  H-8  or  PI-10  or  PI-12. 0*267840078|  lap  3 

121.  if  PI-4  or  H-6  or  PI-9  or  PI-11  |8.2S32000)8t  In  2 

122.  if  M-2.a«24is2ao)a 

123.  next  N 

124.  8-B6400vol (T4f 3. 41) *3600val (7415,61)78 

125.  ret  0-60val (T417 .81) • val (T 4 t 9, 10 J) 
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‘SUBPROGRAM,  VOLTAGE  DATA  PLOT** 


•  •••■in**  i 

■  Kevin  Hiller  ■  Tllei  .PLOOS  «’ ■ 

■  January  14.  1980  ■  Updalti  December  20,  1930 

>  Naval  Betearch  Laborataey  ■  Output  Devkcai  7245  *'i 

■  Space  Application*  Branch  ■  Select  Codei  70S 


•DETERMINE  UHICH  CHANNEL  TO  PLOT** 

If  J  >  0 | 1 ap  3 

ipc  3 1 pr  t  *  No  VOLTAGE  DATA‘,‘vil!  be  Obtained* 
prt  • thi a  T eat . * i ape  3,qlo  ‘RETURN* 
if  C32 ,  j mp  3 

*  pc  3, prt  ‘Not  Enouqh  Data*,*Vet  to  do*. ‘VOLTAGE  CHANNEL* 
prt  ‘Plot. *  tape  3 1 q l o  ‘RETURN* 

ape  3 1 pr t  ' . . , *  VOLTAGE  PLOT*. ape  2 

prt  ‘Xeyln  Special*.*  Function  Key,*, ape  iprt  *f0  to  Increment* 
prt  ‘fl  to  decrement* , ‘f2  to  plot‘tapc  3|1>£ 

•CYCLE’  •  f  ad  0 1  atr  CCIC17  >U0|  If  CIEKlOi*  0‘  *U»C2 ,21  >U9 
dap  ‘Channel  Number • ‘ *U*4‘  [‘»C»tE34*I* 

for  L*0  to  2 i If  f 1 qL icf q  L| jmp  2L‘2 
next  Liqto  ‘CYCLE* 

*f0*ilf  E-Jiqto  ‘CYCLE* 

•f0‘,E‘l>Eiqto  ‘CYCLE* 

*fl*i»f  E-liqlo  ‘CYCLE* 

•fl*iE-ll£iqto  ‘CYCLE* 

M2*  idap  ‘Plot  Channel. ‘aU»t*  I‘»C»CE14‘1* 

'CALCULATE  UNITS  FOR  AXES** 

rread  l,S,Rt,R«for  S-t  to  Eiareod  l,R,next  S 

c0ATE*)H( 1 1 i R)VC 1 })Vf 2) 

for  L-2  to  X-1JZ. rread  1 ,L‘4 ,Rt ,R ,03V 

rread  1 ,L‘4 ,Rt ,R» for  5*1  to  Eiareod  l.Rinext  S 

If  R<Vt 11 i R 1 Vt 1 ] 

If  R7V123 iRIVIZ) 
next  L  *  *  DATE ‘ >Ht  2] 

if  Ht21-Htll>86399i‘OAYS‘lU*iB6400)Oiiap  4 
If  H123-H1115 3599 1 ‘ HOURS ‘ > Ut , 360 0 >D 1 1 ap  3 
If  Ht21-Htl]>S9,‘MINUT£S*)U«, 6030, Jap  2 

*  SECONDS*  700 1 118 

Dint  CHI  11/03 >Hl 11 ,Olnt<Ht2 l/D‘17 >HI2I 
00(1. 214* -*400(3. 414*- ‘400 13, 61 128 

■INITIALIZE  PLOT  AREA** 

fxd  0 1 hdepy  l|pae  705,pclrjacl  -7. 125, 0,0 ,10.5iplt  0,0,1 

pit  -.75, 0.2, pit  -.75. 10. 4, pit  0,10. 4, pit  0,0, pit  -5/56,0, pit  -5/16.10.4 

for  L-1.5  to  9  by  1.5, pit  -3/4.L.t,ott  O.L.2,next  L,catx  1.5,2,1,98 

pit  -7.3/16..67,l,lbl  ‘Date* , pit  -1/16, .5.1 , lbl  R0 

pit  -7.5/16. 2. lilbl  ‘Proqraa* ,plt  -1/16. 1 . 82.1 , lbl  ‘Channel  Plot* 

pit  -9/16. 3. 4,1, lbl  ‘Dote  File', pit  -5-5/16,3. 6,1 , lbl  ‘Name* 

pit  -1/16. 3.52. lilbl  F 8 

pit  -9/16.5.05.  lilbl  ‘Point!*  ,plt  -5. 3/16,3,1, lbl  ‘Plotted* 
pit  -1/16.3. l.lifxd  0, lbl  strGO  **  . 

pit  -7. 5/16. 6.4, lilbl  ‘Frequency* ,plt  -1/16,6.33,2  •  - 

fxd  2, lbl  atr<l/F»le-6J4‘  HH»  *  . 

pit  -9/16, 7. 9.1, lbl  ‘Meeaurement* ,plt  -5. 5/16, 8,1, lbl  ‘Interval* 

Pit  -1/16, 7. 9,1, fxd  0,lbl  atr ( 134*  seel* 

CtCEllRO , f or  L-l  to  5-lnt ClenCR»3/23 , *  *lR»>R(,next  L 

pit  -9/16, 9. 25.1,  lbl  •  Channel* iplt  -5.5/16,9. 6,1 , lbl  *Neae* 

pit  -1/16, 9. 35, lilbl  ROiplt  -1.373,18.4,1 

pit  -7. 125. 18. 4, 2, pit  -7. 125,1 iplt  -1.373.1, pit  -1.375, 18. 4, fit  9 

ael  VI21, 1.23913VU1-.23913V1 21  .Hill- (HI21-HU  17/9.  4, Ml 21‘CH121-Ht  113/94 

•LABEL  AXES*. 

far  L-vm.(CVI23-Vlll3/103RJ  to  V12J-2  by  R,plt  L,HI2),1 
pit  L.H127-<H(21-H(l]3/100,2,next  L 

far  L-HI21-0  to  Htll‘0  by  -D,plt  V127,L,l,plt  VI 2) -R/7.L ,2 , next  L 
calx  1.2, 1,90, for  L-VI21  to  Vlll  by  -Rtpll  L-R/l 0 ,Htl I-CH121-HI 1 33/21 ,1 
fxd  3, lbl  alrfLJ 

tf  L/V1I1  or  LrVC27 ,plt  L, Hill, 1, pit  L.Ht  13* CHI 2 1-Hl 1 33 /100 ,2 
next  Licaiz  1. 5, 2,1 .180 , pit  Vt  1 3  ‘3. 51R ,Hm-CHI23 -Nil 33/12, t 
If  JtCE,E3-‘0*,*DC  Volta‘3140 
If  J»IE.E1*‘A*,*AC  Volta*3M8 

If  J»fE.E3**0*,‘Ohma‘3«0  ,  -• 

fxd  0, lbl  ‘Chonnel  *4atr(CtE])4*  C‘tntl‘3  *,calx  1,2,1.90 

for  L-Htll  to  HI23  by  0,lf  L-Vlll  or  L-V(23,)*p  2 

pit  Vtll‘R/7.L.l,plt  Vt 11 ,L ,2 ,pl t  Vtl3-R/2.4,L-CH123-Ml 115/100,1 

L3X,f or  N-l  to  12 

If  not  01*1  or  M*3  or  11*3  or  W»7  or  31*8  or  N*10  or  N*123,)rap  3 
If  X-2764800<0,qto  ‘PRINT* 

X-26784003X 

If  not  <11-4  or  M*6  or  N"9  or  M*113,l<ap  3 
If  X-2678400<0,gto  ‘PRINT* 

X-25920003X 

If  not  N*2,]mp  3 

If  X-250S600<0,qto  ‘PR1HT* 


97 i  1-2419700)1 

98.  ..ext  M 

89.  -PRlMT-ilf  0*66400 1  f  id  Oilbl  ilr(l/0) 

90.  If  0-3GOO  i  f  ad  Oitbl  a  t  r  <  (X  •  96400  1  nl X  /  964  0  0  >  7 /0> 

91.  If  D-GO  i  f  id  Oilbl  xlr((X-3&00inl(X/3&CG))/D> 

92.  If  D-  I  i f id  Oilbl  »tr((X-60inl(X/603)/D) 

93.  rtei  t  Licit  1 . 5 . 2 . 1  , 90  i  p  l  »  VI 1 1  -  .  81  B  .  HI  1  )  •  (  W I  2  )  -  Hi  1  I  > /3. 1 

94.  mad  l.S.B0|R0il,21l*- *40013, 410*  *  ICO  1 5  .6  )  0  •  .  *  1B0  1  7 , 8  U*  .  •  IRO  1 9. 1 0 1  >140 

95.  Ibl  *Tlac  la  *»U0»-  beqlnnln*  *1140 

96. 

97.  ‘PLOT  OAT**. 

98.  mad  l,5,B0,B|for  S-l  to  Ci.read  l.B»next  S 

99.  pit  R.'DATC'.licplt  -.33,-.15ilbl  ■o'teplt  -.67,-15 

100.  for  1-2  to  Z 

101.  tread  1  ,L  *4 , R0 ,R § f or  S-l  to  E!  i  .read  1  ,R i Y* 1 ) Y i next  6 

102.  pit  R,'DA7E*,2jnext  L 

103.  pen.cpit  - . 33 , - . 15 i ibl  “ o " 

104.  atb  ’PRINTER* .10,13,27,69 

105.  'RETURN*. rat 

106. 

107.  “DATE*  a 

108.  0 1 X  i  f  or  14-1  to  val  CROI 1 .217-1 

109.  if  M-l  or  H-3  or  H-5  or  H-7  or  H-8  or  M-10  or  14- 12 1 X*2678400)X|  J  ap  3 

110.  if  14-4  or  14-6  or  14-9  or  14- 11  i  X- 2S92  000 1  X  |  J  «p  2 
11.  if  M-2|X-2419200HI 

.12.  next  M 

113.  X* 8640 Oval (B0(3,4]>*3600vai<B015l61>>X 

114.  rat  X-60val (R0( 7,817 -val (£019,1013 
■13132 
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•  SUBPROGRAM!  VOLTAGE  DATA  PLQT*i 


*■  (cum  Hiller  ■  ri  In  . PL 018 

January  10,  1380  ■  Updalet  Decemoar  20,  1980 

*■  Naval  Pimr  ch  Laboratory  ■  Output  Devicei  1350 
*■  Space  Applications  Branch  I  Select  Codei  718 


'0CTCRH1NC  WHICH  CHANNEL  TO  PLOT*! 

If  J>0,)oo  3 

spe  3iprl  *Ho  VOLTAGE  DATA*, ‘nil!  be  Obtained* 
prt  'this  Test. * i spe  3,qto  'RCTURN* 

If  K>2|]mp  3 

spe  3iprt  *Hot  Cnouqh  0ota*,*Yet  to  do*, "VOLTAGE  CHAHHEL* 
prt  ‘Plot. * i spe  3iqlo  'RETURN* 

spe  3iprt  ' . . ----*.*  VOLTAGE  PLOT*," - ------- - , ape  2 

prt  'Xeyln  Special*,*  Function  Xey<*,ape  iprt  *f0  to  increment* 
prt  "fl  to  decrement* , *f 2  le  plot"ispc  3|1>£ 

'CYCLE*  •  f  id  OistrtCICmuiilf  CIEK10,'  O'lUl  I2,2])U0 
dap,  'Channel  Number •*  1U00*  1'ICtIClt'I* 
far  L*t  to  2 i l f  flqL,cfq  Li]mp  2L*2 
neet  L iq to  'CYCLE* 

•fO’ilf  E-Jiqto  'CYCLE* 

•f0*iE*l>Eiqto  'CYCLE* 

•fl*i»f  E-liqtP  ’CYCLE* 

*fl*iE-l»Eiqtp  ‘CYCLE* 

*f 2* idsp  'Plot  Channel i " 1U00"  l*4C4(E14*3* 

’CALCULATE  UHITS  FOR  AXES*  i 
hdepy  Oipsc  718tpelr 

rread  1,5,21, Rifor  S- 1  ta  Eisread  l,R|nesl  S 
'OATC'lHtl J,R)Vtll)VC2l 
for  L-2  to  K-11Z 

rread  1 ,L • 0 , Rl , R , f or  S-l  ta  Eisread  l,R,nest  S 
tf  R<Vt llfRlVtll 
If  R>V121 |R}V{ 21 
nest  L i 'DATE *  1 HC 23 

tf  H(21-H(l)>  86333 1 *  DAYS*  Mil i 86400 ) D 1 1 mp  4 
if  HI2]-H(ll>3S99i'H0URS'>U4,3600JD,)*o  3 
tf  HI21-HI1)>S3| 'MIHUTES*lUl|60)Oilmp  2 
'SEC0H0S* )U0 il)0 

Dint  (HIl  1/0J  »HC  1 1  i  Dl  nt  (HI  21 /0*  1}  1HI 21 

l}M,if  (CH(2]-H(lD/0>R3>30,2}M,if  1 n t CR/Z J /R/2 , HI 2 1 -0>H( 21 

•INITIALIZE  PLOT  ARCA'a 

fed  Oisel  0,10.5.0,7.125(011  0,0.1 

pit  0.. 75. 2, pit  10.O. .75, pit  10. 4,0, pit  O.Oiplt  0,5/16,liplt  10.0,5/16,2 

for  L*1.5  to  3  by  l.Siplt  L..7S.liplt  L. 0.2, nest  Liestz  1.5, 2,1 

pit  .55,3/16,1 i Ibl  -Date*,plt  .5.5. 7/16,1 tlbl  "Today  • 

pit  .21,1/11,1 1 lbl  00(1, 2 10* -"101 13, 010* -*401(5, 630*  * 

pit  1.83,7.5/16.1 1 lbl  ’Proqraa’iplt  l . 61 ,1/1 1 ,1 , lbl  ’Channel  Pit* 

pit  3.25. 3/16. lilbl  "Dale  File', pit  3. 57,5. 7/16,1 1 lbl  'Hama* 

pit  3.0, 1/11. lilbl  FOP*  * 

pit  ^.88. 3/16. lilbl  ‘Points*, pit  o . 83,5.7/16,1 , lbl  'Plotted* 

pit  0.95. 1/11, l|fsd  0, lbl  slr(Z34*  -• 

pit  6.2. 7. 5/16. lilbl  "Frequency* iplt  6.15,1/11.1 

fsd  2, lbl  str<l/P«le-634*  MH*  * 

pit  7. 6, 3/16, lilbl  ‘Measurement* ,plt  7.8,5. 7/16, l , lbl  'Interval* 
pit  7. 6, 1/11 ,1 1 f sd  0 1 lbl  str(134*  sees  ■ 

pit  9. 28, 3/16, 1, lbl  'Channel* iplt  3. 05 ,5. 7/16 , 1 , lbl  'Hama* 

CtCEllRf  for  L-l  to  5-intClen(R$3/23i*  • IRI >R» , nest  L 

pH  9. 05.1/11.1, fsd  0,  lbl  Rliplt  10.4,1.375.1 

pit  10.4,7. 125, 2, pit  1,7. 125, pit  l,1.375,plt  1 0.  0 , 1 . 375 1  f  1 1  9 

sal  Hill- CHI  21 -HI  113/3.0,  HI  21*  CHI  21-HCl])/90 ,1 . 23913VI 1 1-.  23313VI21 ,  V1ZJ 

’LABEL  AXES* a 

for  L-V(13*((V(23-V(133/10>R3  to  VI23-R  by  Riplt  HI21.L.1 
pit  H(21-<H(21-H(ll)/100,L.2|next  L 

far  L*HI23-UD  to  H113-W0  by  -WOiplt  L,V(23,l,plt  L.Vt23-R/7,2,nest  L 
csls  .7,2,1 i for  L-VI23  to  VIX3  by  -R,plt  Hlll-CHI 23 -H( 1 J3/12.5.L-R/10.1 
fsd  2, Ibl  str(L3 

tf  LSVIU  and  LFVI23,plt  Hill, L.l, pit  H(1)*(H(23 -HI  1 13/1  0D.L.2 
nest  Liestz  1.5, 2, 1.30, pit  HI  1 l-CHI 2 3 -HI  1 13/11 ,V(11*3. 1R,1 
If  J»(E,E3* *0* , *DC  Volts'lHO 
tf  J*(E  ,E1*  "  A*  |  *AC  Vol  ts'lffO 
If  J*IE,EJ-*0*,*0hms*>M0 

fsd  0,lbl  'Channel  * 4s 1 r (CtCl 3 *•  (*1M«4*3  ’tests  .7,2,1 

for  L*H(11  to  H(21  by  W0,lf  L-H(ll  or  L*H(21|lmp  2 
pit  L,V(13*R/7,1 iplt  L,V( 11,2 

pit  L-(H(23-H(113/S0,V(13-.35R,l,L)X,for  10-1  to  12 

If  not  CH-1  or  H-3  or  M-S  or  N-7  or  H-8  or  N*10  or  N-123ilmp  3 

If  X- 2760800(0 19 to  'PRINT* 

X- 267800031 

If  not  (H-0  or  H*6  or  H-9  or  H-U3i)mp  3 
If  X-?678000<0isto  'PRINT* 

X-2592000H 


8  7 1  If  not  H*2|]oo  3 

86.  If  X-250S£00<0|<|la  'PRINT* 

89.  X-24192gO)I 

90.  noil  m 

91.  '  PR  I  NT* .If  D-86400.fxd  O.lbl  itr(X/0> 

92.  If  0-3COO.fxd  O.lbl  t »r < { X- 864 00 l nl ( X/864 0 0 3 > /D> 

93.  If  D-60.fxd  O.lbl  x tr ( IX- 36001 nt < X/3C00) > /0> 

94.  If  0*1 i f id  O.lbl  itr<(X-60lnt(X/603)/D) 

95.  next  Licxli  l.S.2.tiolt  HI  1 1* <HI21 -Hill 1/4. 2 , Vt 1 1- . 8SR. 1 

96.  rreod  1 . 5 , R t , R» 1 1 , 2 ) l ' - ' 1 R» ( 3 , 4  1 1 '  *»R»I3,&li'.'*K»l7,81»'.'»R«l9,101)H0 

97.  Ibl  'Tlae  1*  beqlnnms  • 

99. 

99.  'PLOT  DATA* . 

100.  rreod  l,5,Rf,R.for  5*1  to  Ei.rrod  l.R.next  S 

101.  pit  'DATE* ,R,1 icplt  33 , - . IS i Ibl  ’o'.cplt  -.67. .15 

102.  for  L*2  to  Z 

103.  rreod  1 ,L *4 , R0 , R » f or  5*1  to  E.xread  l.R.next  6 

104.  pit  'DATE ' ,R . 2 . next  L 

105.  pen.coll  - .  33, -  .  15.  Ibl  *o* 

10G.  'RETURN*. rot 

107. 

108.  "DATE*. 

109.  OlX.for  M-l  to  voKRtll, 2JJ-1 

110.  If  H*1  or  M*3  or  M*5  or  H*7  or  N*9  or  rt*I0  or  H*12 .X*267S400)X . jap  3 

111.  If  M-4  or  N*6  or  I1-9  or  H-ll .  X.  2592C  001X .  jop  2 

112.  If  t1*2.X*2419200)X 

113.  next  N 

114.  X* 86400 vo  1  IRtI3,473 *  3600  va 1 (RII5,61>>I 

115.  ret  X-60val<Rtt7,81)*val(R«(9,10D 
09252 
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•PROGRAM.  ANALOG  DATA  NOLI  I  PLOT*  « 


*9  Kevin  nillir  a  File*  HLT05 

•X  Auqust  2*  1902  ■  Updotei  Auqust  2,  1982 

Naval  Ftietrch  Laboratory  ■  Output  Device*  7245 

•e  Space  Applications  Branch  a  Select  Code*  705 


•GET  riLC  NAME  AND  PLOT  INTERVAL* ■ 
dtp  •Insert  Softcopy  Graphics  Tape*tstp 
ldb  1 i dev  •PRINTER* ,706, •PLOTTER* ,705. ‘CLOCK*. 9 
dt»Ft(61,Dt(6],T«(14],Ut[71.M«(401.Hr2},V[4,21,8l(12),Et(12) 
dla  A141  , At (4 ,31 .  PI  I  4,1) , Cl  261 ,0*125,101  , JI125) 
dla  C.D.E.F,6,I.J,K.L,M,H.P,a,X,V.Z|4>8 
•Ilf  >Atl  1  J,*2nd’l  A»(21  i  “3rd*  >  AS  1 31 1  *  4  th*  1 A0 14  J 
•o*>P4tll,’x’)Ptl2),*r’}PII31,’l’)PII41 

•  •  IF 4 *ent  ’Enter  Data  File  Naac*,FI,lf  flql3,)ap  0 
asqn  Ft ,1 ,1 .8 

If  Q-lidap  Ft!’  does  not  eilifivall  1500il<ap  -2 

asqn  ri,l,l*rread  1 P1 ,G,M, 1 ,01,7, J 

if  N<3|dsp  ‘Not  Enouqh  Data  for  Plot’istp 

for  L-l  to  Jisread  1 , Ct L 1 , C t (L 1 . Jt (L , LI  ■  next  L 

ent  'Plot  Data  froai  MMO0HHMMSS* ,BI 

tf  f  lql3i  •OOOOOOQOOOMBO 

if  Ien(BI 7 <1 0 , dsp  ’Mot  In  Proper  Fora’, -alt  1500tjisp  -2 
ent  ‘Plot  Data  to*  r.MCOHHMMSS*  ,EI 
tf  f  ]ql3*  •  9999999999 •  >E0 

tf  lenCEOrl  0  i  dsp  'Not  in  Proper  Fora'ivatt  ISOOiJap  -2 
far  L-l  ta  4 

dsp  ’Enter  ’tAtlLlt*  Channel  to  Plat* 
ent  **,AlL1,lf  not  flql3|Ja*p  3 
tf  L<3|  1  mp  -2 
L-I)B,l»p  5 

tf  A(L1<0  or  AILl>39|dsp  'Ho  Such  Channel  Humber*, watt  1500, )np  -2 
far  M-l  to  Jitf  ClMlrACL) inext  Mijnp  2 
M1AIL1 | next  L | 4  >  8 1 1  mp  2 

fid  0  *  dsp  "No  Data  Collected  at  Channel  ’latrfACL  17  ,-all  ISOOijap  -7 
for  L-l  to  B- 1  *  f  or  M-L  *  I  to  8|if  A1M1  >  -  At  L 1 1 1  op  2 
A(U>A,A(N)>AlL),A)AtHJ 
next  Mi  next  L 

•CALCULATE  UNITS  FOR  AXES*! 
rread  1 ,K « 1 > K . T t , C i 1 f  TI<Bt,j.p  0 

K7Yil>F,07H,for  L-l  to  B|for  M-l  to  AtLl-H,xread  l.C,next  N 

•TIME*»H111 , CIVIL. 117VCL, 21 ,A(Ll!Hineit  L  ♦ 

for  L-K-l  to  H, rread  l.L,Tt,C,tf  T|>Et,lap  5 

F-UF  |0)H|f  or  M-l  to  B  i  f  or  0-1  to  A(MJ-H,sread  l,C,next  0 

If  C<V(M.ll,C>V(H.l] 

If  C>V(N.2]tC)V(M,21 

ACM1 1  Hi  next  M | next  L 

rread  1 .L-l IZ, T$ i 'TIME' >Ht2l 

tf  H(2]-H(ll  >86399 1  “DAYS*  >Ut  1 864007 D, imp  4 

If  H121-HI1 ] >35 99 1  *  HOURS ■ >Ut 1 3600  ID 1 1  ap  3 

tf  H(2] -HI 11739, “MINUTES* >Ut ,60)0,1  up  2 

•SECONDS*  >Ut  »1 >0 

01  nt  (HI  1  I/O)  >HtIl  |D1  nt(H(  21/0*1)  INI  2  3  ,  HI  2 1  -  HI  1  DM 
for  L-l  to  Jifor  M-l  to  1 nl (5- Ien(CI(L17/27 

•  *lCttL)>C*fLl , next  M,next  L 

01(1, 214* -’*0113,4) I* -•  Ot [5,S1}T1 ,4)K 

•INITIALIZE  PLOT  AREA’i 

hdcpy  lifxd  0 i scl  -7 . 125 , 0 , 0 , 10. 3 ,pl 1  0,0.1 

pit  -,75,0,2ipll  -.73,10.4iplt  0,10.4iplt  O.Oiplt  -5/16,0, pit  -5/16,10.4 
for  L-l. 5  to  9  by  l.Siplt  -3/4,L,liplt  0,L,2,next  Licxtx  1.5,2,1,90 
pit  -7.5/16. .67,1 1 lbl  -Date’iplt  -1/16, .5 , 1 ,  Ibl  TO 

pit  -7.5/16,2,1 i lbl  ■Proqraa" iplt  -1/16,1 . 62, 1 i Ibl  ’Analoq  Multiplot* 
pit  -9/16, 3.4, l|lbl  ’Data  Flle’iplt  -5. i/16,3. 6, 1 i lbl  ’Heae* 
pit  -1/16,3.52,1 i lbl  FI 

pit  -9/16,5.0S,l|Ibl  •Points’  iplt  -5. 5/16, 5,1, lbl  ’Plotted* 
pit  -1/16,3.1,1, Ibl  strCFJ 

pit  -7.5/16,6. 4 , 1 , Ibl  “Frequency* ,rl t  -1/16,6.35,1 
fxd  2, lbl  str(l/P«le-674’  MHx  • 

pit  -9/16. 7. 9.1, lbl  “Measurement* iplt  -5. 5/16,8. 1 , lbl  ’Interval* 
pit  -1/16, 7. 9,1,  fxd  0,  lbl  strtDl*  seel* 

pit  -9/16,9. 3,1 i lbl  ’  Channel*, pit  -5. 5/16 .9. 4 , 1 , lbl  ’Function* 

•DC  Vol toqe’ >MI , t  f  Jt l At  1 1 ,  At  1 1  ]• *  A’ , *  A* )Mt  1 1 ,1] 
tf  JIIAlll.Aim-’O*,*  Ohms*  JMtf  1 ,1] 
pit  -1/16, 9.3, 1,1b!  Ml, pit  -1.375,10.4,1 

pit  -7.125,10.4,2iplt  -7. 125, 8, pit  -1.375, Bipit  -1 .375, 10. 4 i fit  9 
HI2T-10. 414/(10.  4-8)12 

scl  V(1 ,2) ,1. 23913VI 1 ,11-. 23913V1 1, 2 1,R, (10. SHI 21 -.127/10. 4 
•LABEL  AXES*. 

for  L-VCl, ll*((V(l,23-V(l, 1)7/10)  C7  to  VI1.21-C  by  C,plt  L,H12),1 
pit  L.H127-.  10414/(10. 4-87  , 2,  next  L 

for  L-H121-0  to  MIll’O  by  -D,plt  Vt 1 ,2 1 ,L , 1 iplt  VI 1 .21-C/7.L .2, next  L 


87.  for  L-Vtl ,11  t*  Vtl.I)  by  -C,plt  L -C/ 10 ,M( 1 J - . « ?w/ (1 0 . 4 - B) . I 
88 1  csl<  1 .2,1 , 90 . f  *d  3 i 1 bl  str(L> 

89 1  If  IfVtl.ll  and  trvt  1  ,2J  ipl  1  L.H(l).liolt  L  .  HI  11*  .  1  Ocw/ ( 1  A .  4- 8)  ,2 
SO.  sett  Licit!  t.5.2.l.380iplt  VI 1  , 1  )  •  3 . 2  C  ,  H 1 1  3  -  .  55N/  (  J  0  .  *  -  8>  .  1 

91.  fid  0 • 1 b 1  Pltlll*  *  1C t(A(1334*  (Channel  "  Xtr  <Ct  At  1 ))  14"  >• 

92.  for  0-2  to  BtcsX  1.2,1.90 

93.  set  Vt0.23.1.23913VIO,ll-.23913Vt0.21.R.lI0.5Hl23-.!R>/10.4 

94.  pit  v/(o.ii.Hti)-u(o-n/(io.4-B>.iipit  vto.2i,Hm-if(o-i)/<io.4-Bj.t 

95.  for  L-V(0,2)  to  V10.1J  by  -( ( VI  0 .23 - V! 0. 1 J ) / 1 0>C> 

96.  pit  L-C/10,HI13-W(0- .£8>/(10.4-9) .lifsd  3.1bl  ltrlL) 

97.  pit  L.Ht 1 1 -W(0-1 ) / (10. 4-B) .1 ipl t  L.Htl 3 -14(0- l . 104)/ (10. 4-B) .2 ,nest  L 

98.  cats  1.3, 2.1. 3  80  toll  Vf 0 . 1 3 • 3 . 2C , H( 1 3 -H(0- . 453 / ( 1 0 . 4 -93 . 1 

99.  fed  Otlbl  P«(034*  *4C41A10334*  (Channel  *  Is  tr  (Ct  At  01 1  3  4*  )  •  .  nejrt  0 

300.  csX  1 .2.1.90,0-l>0|f or  L-H113  to  Hf23  by  Oilf  L-Htll  or  L-H(23tl>P  2 

101.  pit  V(0.13-C/7,L,1 .pit  V(0 , 1 3 , L .2 

102.  pit  VI0.1J-C/2. 4, L-.104W/(10. 4-85.1  ,1.30, for  N-l  to  12 

103.  if  not  tli=l  or  N-3  or  H-5  or  H-7  or  (4-8  or  N-10  or  FI-12), l*sp  3 

104.  If  0-2764800(0, qto  'PRINT* 

IDS.  0-287840019 

1 06.  If  not  (H-4  or  11-6  or  N-9  or  N-tl),inp  3 

107.  If  Q-2678400(0|qto  "PRINT* 

108.  0-2592000)9 
109i  If  not  F1-2,Jnp  3 

110.  If  0- 250560 0< 0 1 q to  "PRINT* 

111.  0-241920019 

112.  next  m 

113.  "PRINT*. If  D-8S400 . f sd  Otlbl  str(Q/0> 

114.  If  0-3600 i fid  Otlbl  itr((0-86400lnt(Q/8640013/0> 

115.  If  0-60 1 f  sd  Otlbl  slr((Q- 36 OQtnt (0/3600)5/ 05 

116.  if  0-1, fid  Oilbl  llr( (Q-60tnt (0/6011 /D) 

117.  neit  l.citi  1. 5 ,2 , 1 ,90 ipl t  V(Q,13-.81C,Htl3*(7. 2-8) U/ (20. 8-285.1 

118.  if  31- "0000000000* i l«p  2 

119.  Btt  1 ,210*  -  *  18(13.4  10*  '4Bt[5,63A*.*48t{7,83t*.*l8t(9, 1031  tit  ij  sip  2 

120.  rrcid  l,S,T«|Ttll .210*- * »T *13,4 3i*  • 4T t t 5 . 6 1 4* . • 4T» l 7 . 81 » " . " 47 t l 9, 10 1 >H0 

321.  lbl  "Tine  ta  "4UI4*  beqinnlnq  * 4H0 

122. 

123.  "PLOT  DATA* a 

124.  for  0-1  ta  9 

125.  sc  1  V(0,2),1.23913V(a,ll-.23913VlO,21,R,(10.5H(21-.lR)/10.q 

126.  r  r  rad  1.V.T0.C 

127.  for  N-l  to  A(03,sread  l.C.nest  N 

128.  pit  C,*T1NE*.1 icplt  -.33.-. 15,  Ihl  Ptt03,plt  C."TINE*,1 

129.  for  L-V-l  to  Ztrread  l.L.Ti.C 

130.  for  FI- 1  to  AtOltsread  l.C.nest  N 

131.  pit  C. "TIME* .2, nest  L 

132.  coll  -.33.-. 15, lbl  P*(03  t  nest  0 

133.  -tb  "PRINTER*. 12. 13. 27, 69 

134.  end 

135. 

136.  "TlfC*» 

137.  0)0, for  N-l  to  val CT0ll.215-t 

138.  If  N-l  or  N-3  or  N-5  or  N-7  or  N-8  or  N-1B  or  N-12, 0-2678400)0, | mp  3 

139.  if  M-d  or  M-6  or  N-9  or  N-ll , 0-2592000)0 ,) no  2 

140.  If  N-2,0-241920019 

141.  nest  N  ■••••* 

142.  0-864 00 val (T0I3.4 J>-3600vol (Tt (5 ,  ■« 

143.  ret  a-60vol(T4(7.an-v«l(T«(9,10  . 
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"PROGRAM.  ANALOG  DATA  MULTIPLOT  DISPLAY*, 


Tcvin  Miller, Trip  Carter 
•e  July  20,  1983 
"a  Naval  Research  Laboratory 
•a  Space  Applications  Branch 


Tile,  ML T18 
Update.  July  20,  ! 983 
Output  Device.  7243 
Select  Code.  718 


■OCT  PILE  NAME  AND  PLOT  INTERVAL*, 
dsp  "Insert  Softcopy  Graphics  Tape*istp 
ldb  1  $  dev  "SCREEN* , 718, 'CLOCK* ,9 

dl*r*(61.D»(61,T»tl41.Ut[71,M»[401.H12),vt4,21,B«ll2),Etll2) 

dim  AI41.Ail4.3].Ptt4,l],CI26].Ct(25.101,Jtt2S] 

dla  C,D,£,F,G,I,J,K,L,M,N,P,Q,X,Y,Z|4)K 

'llt*>AI(l],"2nd'>Ai(21,"3rd*>A«[31,'4th*)At[4) 

•o")Ptlll,*x")Ptl2J,"#">P*I31,"t">Plt4J 

*">rs,ent  "Enter  Data  Pile  Home", PS, if  flql3,jmp  0 

asqn  FO, 1.1,8 

if  Q-l,dsp  ri»*  does  not  exlst*.valt  lSOOijisp  -2 

asqn  ri.l.lirread  1 , 1 , G , H , I , DO ,P , J 

If  N<3,dsp  "Hot  Enouqh  Data  for  Plot'.stp 

for  L-l  to  J i sread  1 ,C(L1  .CtlLl , JO (L ,L 1 , next  L 

ent  "Plot  Data  from,  MMODHHMMSS* ,B0 

If  f Iql3,"0000000000*>B8 

if  1 enCBOl <1 0 i dsp  "Hot  in  Proper  Farm", wait  1500, jap  -2 
ent  "Plot  Data  to.  MMODHHMMSS* ,C0 
if  f lql3, "9999999999* >E0 

If  lenCES 1 *10 , asp  "Hot  in  Proper  fora", wail  1500, jap  >2 
for  L*1  ta  4 

dsp  "Enter  "lAttLlt*  Channel  to  Plat* 
ent  **,AtL]|lf  not  flql3,jap  3 
If  L<3,lap  -2 
L-UBilao  3 

If  ACLX0  or  AtL1739idsp  "Ho  Such  Channel  Number ",  wa  1 1  1500,  j  mp  -2 
for  M-l  to  Jiif  CtMJrAlLl ,ne*t  M,jmp  2 
M) Af LI , next  L,4>Bi]mo  2 

fxd  0,dsp  "Ho  Data  Collected  at  Channel  "  is  tr  (A1L31  iwal  t  1500, jap  *7 
for  L-l  to  B-lifor  M-L"l  to  B,if  A t Ml> -ACL  1 , j mp  2 
A[LI1A,AIH1>A(L],A>A(H) 
next  11,  next  L 

•CALCULATE  UNITS  FOR  AXES*, 
mead  1 . X • t >K . T» . C , 1 f  Tt<8t,jap  8 

K IV, 1 IF , 0  >H, f  or  L-t  to  8, for  H-l  to, AIL1 -H , sread  t,C,next  M 

"TIME"JHtlJ,C>VfL,ll>VfL,21 ,AfLl>H,next  L 

for  L-C*t  to  Htrread  l,L.Tt.C,tf  TI>E*,jap  3 

F*l>F,01H,for  H-l  to  Bifor  0-1  to  AtMl-H, sread  l,C,next  0 

if  CfVCH, 11, ClVtft.il 

if  C>VtH.21,C>V(tt.21 

AIM]  >H ,  next  ft,  next  L 

rread  1 . L-l >Z. T» , "TIME  * 1H12J 

If  H12J-HC1 1 >88393 i " DAYS" >Ut , 86400)0, jap  4 

if  H12J-HI11 >3599, "HOURS " JUt , 360010 ,  jap  3 

if  HC2)-Htll>59, "MIHUTES*}U0|60>D| jap  C 

"SECONOS*>U*,1>0 

Dint  CHI 11/01 IHtll, Dint CHf 21 /D*l))Ht 21 ,HC21-HI11>H 
for  L-l  to  J , f or  H-l  to  i nt E5- 1 enCC t (L11/2J 
•  "»C*tL3>C»tL3,next  M,next  L 
0»tl,21**-*»0tt3,41»*- "iDftS.Smi,  *  'X 

•INITIALIZE  PLOT  AREA*. 

fxd  Othdcpy  0,psc  718,pclr,scl  0,10.3,0,7. 123, pit  0,0,1 

pit  0, .73, 2, pit  10. 4, .75, pit  10. 4,0, pit  0.0, pit  0,5/16.1, pit  10.4,5/16,2 
for  L-l. 5  to  9  by  l.S,plt  L,. 73,1, pit  L, 0,2, next  Licsii  1.5, 2,1 
pit  .53,3/16,1 i lbl  "Date*, pit  .5.3.7/16.1,161  'Today* 
pit  .21, 1/11,1, lbl  Tttl,23»*-"ITtt4.51**-80  * 

pit  1.85, 7. 5/16,1, lbl  *Proqrsa*iplt  1 . 61 , 1/11 , 1 , lbl  '  Multiplot  * 
pit  3. 23, 9/16,1, lbl  ’Data  File', pit  3.57,5.7/16,1,161  "Name" 
pit  3. 4,1/11,1, lbl  Ft**  • 

pit  4. 88, 9/16,1, lbl  "Points* ,plt  4.83,5.7/16.1,161  "Plotted* 
pit  4.93,1/11,1,161  strCF}*"  • 

pit  6.2,7.5/16,1 , lbl  "Frequency*, pit  6.15,1/11,1 
fxd  2 , lbl  strtl/PxIe-63**  HH*  • 

pit  7. 6, 9/16,1, lbl  "Measurement* tplt  7.8,5. 7/16, 1 , lbl  ‘Interval* 

Pit  7. 6, 1/11,1, fxd  0,  lbl  strCDt*  secs  * 

pit  9.18.9/16,1,161  ’Channel*, pit  9. 18,5. 7/16, 1 , lbl  "Function* 

"DC  Vol toqe" >Mt , if  JtCAtl]  ,A1111-"A* , "A" }Mttl,l] 

if  J*tAtlJ.Allll-"0*,*  Ohms  * 1M0 

pit  9.1, 1/16,1, lbl  Mt,plt  10.4,1.373,2 

pit  10. 4, 1.373,1, pit  10.4,7. 123, 2, pit  B, 7. 125, pit  P, 1.373 
pit  10.4, 1.375 ,H121- 10. 4W/C10.4-B11R 

sc  1  R, CIO. 5H121-.1R1/10. 4, 1.23913V [1,11-.  23913V1 1,21,V(1,2] 

•LABEL  AXES*. 

for-  L-V(l,l]*CCVtl,21-VIl,l]}/101C)  to  VI1.21-C  by  C,plt  HI21.L.1 
pit  Ht2>~. 104M/C10.4-B7 ,L,2,next  L 
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07.  for  L-MI21-0  to  Hlll-D  by  -0,plt  L  .  VI 1 ,  2  I  ,  1  ,  pi  t  L  .  VC  1 .  2  1  -  C/7 .2 ,  mil  l 
ea.  far  l*VM,2)  u  VII.  1)  by  -C.pll  HI  1  ]  -  .  6Ba/  <  1 0 .  4 -B)  .1  -C/1  0 ,1 
89.  e»»t  I. 2. 1, 9, fid  2 i Ibl  atr(L) 

90  i  If  IrV(t.i)  and  1 'V! 1 . 2 1 i p 1 1  HIll.L.llplt  M I  11 ♦ . 1 0 «M/ (1 0 . 4 - 9) , l ,2 

91.  r„,i  Lien,  1.5, 2. 1.90, pH  HI  1 ) • . 65w/ ( 10 . 4-B) . VI 1 . 1 1-3. 2C,1 

92.  fid  Oilbl  *  •iPlllir  ‘iCIIMlUr  (Channel  *  lair (C( At  1 1 1 )4*7  * 

93.  far  0-2  la  8. can  1. 2.1.0 

94.  act  8.  ( 10 .5HI2 1- . lftl/10.4 .1. 23913VI0, 1 1-. 23913VC0.21 .VI0.2) 

95.  pit  Hlll-u<0-l)/<10.4-B).VI0,l],liolt  HI1]-U(D-1)/(10. 4-B), vtO, 21.2 

96.  far  L-VI0.21  ta  VlO.ll  by  • ( (VI 0 .2 1  - VI 0 . 1 1 1 / 1 0 >C> 

97.  oil  Hll l-UIO- . 327/(10. 4-B) .L-C/l 0 . 1  if  id  2, Ibl  atr(L3 

99.  pit  Hll)-U(0-l)/(l0.4-B7.L.i ,plt  HMI-UCO-I.  1041/(10. 4-B3.L.  2,  neat  L 

99.  call  1.5, 2.1 .90, pit  HI  11 -M(0- . 33) / ( 10 . 4-B) , VI 0. 1 ) -3. 2C.1 

100.  fid  Oilbl  *  *  IPO  I  010*  •iCICAIOllI*  (Channel *latr(CtACO) 1)4*7  *|ne*t  0 

101.  can  1 .2.1  .0iO-l>0,for  L-HIll  te  HI2!  by  0,lf  L-Hlll  or  !.-Ht21,i»p  2 

102.  pit  L.V(0,l}*C/7.1iplt  L. VlO.ll, 2 

103.  pit  L-. 18414/(10. 4-B7,VI0,l)-C/2. 4. l,L>a, for  14-1  te  12 

104.  if  nat  (PI-1  or  11-3  or  M-5  or  PI-7  or  PI-9  or  14-10  or  H-127,l«p  3 

105.  If  0-2764B00<0iqto  'PRlIfT* 

106.  0-2678400)8 

107.  If  not  (14-4  or  PI-6  or  Pt-9  or  Pf-ll),)a^  3 
109,  If  0-2678400<S,qto  'PRINT* 

109.  0-259200)8 

110.  If  not  PI-2,  lap  3 

111.  If  0-2505600(0 iqto  "PRINT* 

112.  0-2419200)8 

113.  next  M 

114.  "PRINT*, if  0*66400, fid  Oilbl  atr(8/D) 

115.  If  0-3600 , f id  0 , Ibl  atr ( (Q-864 00 1 nt (0/36400))/D> 

116.  If  D-60 , f  ad  0,1b]  a tr ( (0- 360 0 1 nt (0/3600) > /D> 

117.  If  0*1 , fid  0, Ibl  atr((Q-60lnt (0/60))/07 

119.  neat  L.can  1 .5 ,2 . 1 . 0  ,pl  t  HI  1 1  *.  46(7.2-8)14/ (20 . 9-2B)  .VI 0 , 1 1- .  81C,  1 

119.  If  8»-*0000000000* il«o  2 

120.  B0I1. 21»*-*IB»I3. 41«*  '18415, 614*. '1BII7, 8)4*. *»B»I9. 101>ri»,)mp  2 

121.  rreod  1 .5 . T • , T 1 1 1 . 2 1  * • - • I T 1 1 3 . 4  1  * •  • III 15 , 6 1  *  * . *  IT  1 1 7 , 8 1 4* . *  IT » 1 9. 1 0 1 )Ht 

122.  Ibl  ‘Time  in  *IUtl*  beqlnnlm,  'IPI04*  * 

123. 

124.  -PLOT  DATA*! 

125.  for  0-1  ta  8 

126.  acl  R,(10.5H(2]-.1R)/10.4,1.23913V(0.1)-.23913VIO,2),V(0,21 

127.  rreod  1.V.T0.C 

129.  far  14-1  to  A(01,aread  l,C,next  M 

129.  pit  ’TIME* ,C,1 ,cplt  -. 15, -.33, Ibl  Pt(OJ,plt  'TInE'.C.I 

130.  for  L-V-l  to  Zirread  l.L.Tt.C 

131.  for  P4-1  ta  A I  0 1  ,  ar  ead  l,C,next  N 

132.  pit  *TII4E*  ,C,2  ,  neat  L 

133.  cplt  -.15, -.33, Ibl  PtIOl , next  0 

134.  end 

135. 

136.  *T1PC*. 

137.  0)Q,for  H«1  to  val CTttl ,217-1  .. 

138.  If  H-1  or  Pt-3  or  PI-5  or  PI-7  or  M-8  or  PI-10  or  **12,0*2678400)8, jmp  3 
139i  If  PI-4  or  Pt-6  or  14-9  or  N-ll  ,0*2S92000)Q,  Jnp  2 

140.  If  14-2,0-2419200)8 

141.  neat  It 

142.  Q-864 00 val (T4I3.417 *3600 val (T4I5, 6)7)9 

143.  ret  Q*60valCTt(7.817«valCTI(9,lQl) 

•15316 


’PROGRAM.  ANALOG  DATA  STACK  PLOT** 


■  Kevin  Miller 

■  Auquat  5,  1982 

■  Navel  Seieirch  Laboratory 

■  Space  Application*  Branch 


•••••••••■•••••••••■••••a** ••••••ooooop’* 

•  r i I  a i  STKOS  a*  1 

■  Update i  Auquet  S.  1991  ■*, 

rotary  •  Output  Device.  7245  *• , 

Branch  •  Select  Cadai  70S 


9.  ’GET  TILE  HAMC  AND  PLOT  INTERVAL** 

lt>  dap  ’Insert  Softcopy  Graphic*  Tape’istp 

lit  ldb  1 i dev  ’PRINTER’, 706, •PLOTTER*, 70S, 'CLOCK*. 9 

12 t  dip  Ft[6},DttG),Tttl41,U«(7],n*(401,Ht2},vl4,2],8*ll2] ,Ettl£l 

13#  dip  AI4),A*(4,3],CI261.C*I23.101.J»I251  ’ 

14.  dtp  e.o,E.f.G,i,j.K.L,M,N,p,a,x.y.2|4»K 

15#  lat*)AM13|’2nd’)A*l21i*3rd*)A*I31|*4th*>At(4| 

16.  -irtient  ’Ent.r  Data  Til . .Fljif  B 

•  »  *  ■  I  *  I  *1  *1 

18#  If  QMidsp  rt*’  doe*  not  e*l*t’i»alt  ISOlilw  -2 

19.  aaqn  FO.l.lirr rod  1 ,1 ,G.H, I ,D» ,P . J 

20#  If  MC3|dap  ’Not  Enouqh  Data  for  Plot’ntp 

21#  for  L*1  to  J i  tread  1  ,CIL  1 ,  OIL  1 ,  J*IL  ,L I  > neat  L 

22#  ent  ’Plot  Data  frop#  rviDDHHr-JiSS’  ,fl» 

23#  tf  f lql3i ’OOOOOOOOOO’IBO 

24#  if  len(B(X10|d*p  ’Hot  In  Proper  Forp’.valt  ISOBiiap  -2 
25#  cut  ’Plot  Data  to#  nnoOHKMTlSS*  ,E» 

26.  tf  flql3» ’9939399999’ >C» 

?2‘  !*  len<EI>/10|d*p  ’Not  In  Proper  roro’ivolt  ISOlila  -f 
29#  for  L«1  to  4 

29#  dap  ’Enter  *1A»(L)4*  Channel  to  Plot* 

30#  ent  ”  , AIL  1 1 if  not  flql3ilnp  3 
31#  if  LC3*jpp  -2 
32.  L-llB,]pp  S 

33#  if  AIL1C0  or  AIL]>39idap  ’No  Such  Channel  Hueber’iueit  150 Oi lap 
34,  for  M-l  to  J.if  ClMl/AlLlme.t  M.jpp  t  IPBUilop 

35#  MlAfLlfnent  L#4)Bilpp  2 

W.  fad  Oidap  ’No  Data  Collected  at  Channel  ’islrCAELD  ,ualt  1500, lap 

37.  for  LM  to  B-4,for  M-L»l  to  8|if  A(NJ> -AfLJ ,  lap  2 

38.  A1L])A*A(M]}AEL1  | A} AlffJ  o 

39#  neat  M.neat  L 

49. 

41.  ’CALCULATE  UNITS  FOR  AXES** 

42.  rread  1 ,K’1>K,T» ,C ,if  T*<B*iJpp  9 

if'  iT.t**:1.  Xm  "»"••*  l.L.Tt  ,Cilf  T«>E»,j-p  5 

44?:  B>for  “-1  te  *’*»««* . 

f8.  if  C>VIH,2]*C>V1M,21 

49.  AEH]>H,next  H,ne*t  L 

SB.  rread  1.L-UZ.T9,  ’TlfC’lHEZl 

SJ.  if  HE 2] -HI  1] >86399*  ” DAYS* 1U9 *86400)0*1  pa  4 

52.  if  HE 21 -HI 1 1 >3599* ’ HOURS * >U« 1 360 0>0* lap  3 

P.  if  HI ZJ-Ht 11>35,  ’MINUTES’  )U0  *60)0, Jao  2 

34.  ’SECONDS’ )Ut  *  1)9  •  .  .  - 

35.  Dint  CHI l]/DllHEl]|Dint  CHE21/D’ll 1HE21 |HE21-HE111H- 

36.  for  L-l  to  Jif or  H*1  to  Int C3- lenCC* 1L1J/23 
57.  •  '*C*ILl>C»tL)  meet  H,nezt  t 

38.  0*Il,2]«’-’tOif3.41l’-’*0$C5,6]>T«|4>K 

391 

6I«  -INITIALIZE  PLOT  AREA*' 

61.  hdcpy  1.P**  705,f»d  O.ael  -7.12S.0.0.10.3,pIl  0.0.S 

2’  til  »>1#-«>pi»  *.o,pit  -s/i6.o,pit  -5, 

S  Jjj  J*  J  bJf  ,p**  •  »U ,2 1  nest  L|cils  1.5, 2,1, 

64.  Pit  -7. 5/16, .67.1,lbl  'Date’iplt  -1/16, .5,1 , Ibl  TO 

S'  ?ii  -i/is,i.e,i*ibi  'ini.*  st.c»  r 

15:  Sit  :VAl:l:UlA\bili  fV  ,plt  -5  5/16.3.6,1,151  ■*...• 

S:  Si»  ‘-i/i6:l:niiiwl*;^l,’,,“t 

ZJ*  *»>«9««««v*ipit  -1/16,6.35,1 

Tl.  fad  2* lbl  *tr Cl/P« le-6>A*  MMl  ’ 

n  Sil  "3.5/16,8,1 ,  lb!  ’Jntervpl* 

73«  pit  al/ltf7.9t||fxd  0|lbl  itr(!)|*  sect* 

re'  *.  Ch«»"«**lP»t  -5.5/16,5.4,1*151  ’Functlop* 

75.  OC  Voltaqa  >Nt,lf  J*I  All!  ,Al  II 1- •  A’  ,  •  A’lPIOEl  ,11 

76.  if  JtlAlll.AIllJ.’O’i*  0hp»’>n*El.lJ 

77.  pit  -1/16, 9.3. l*lbl  Ntiplt  -1.375,10.4.1 
78i  if  8#2tJ«P  4 

IV  °ii  ??-?•?*■*?*  JS'1!**1 1  -1-375, 1, pit  -1.375,10.4 

o?*  ii  '2-55’J2*l*1,oIt  '7-‘25.1*-^.2iplt  -7. 125 ,1  *pll  -4.375,1 
Vlt  PII  “4,373,11.4 

Wi  If  BO|)ap  % 

Sii  '2-I2,hPIt  -1-375.1, Pn  -1.375.10.4 

«  ?!i  *5.  125,1, pit  -3.375,1 

IS:  Sit*  -‘l.i?l:i!p?ipis.3?5?i74:i#  <,'1,p“  -7125*1,-.V2*p,t  -7-,Z5’* 


07.  if  6*4, )«o  0 

88i  pit  -2.625.10. 4. 2, pit  -2. 625.1, pit  -t. 375.1, pit  -1.371.10.4 
09,  pit  -2.875,10.4.1 ,plt  -4.125,l«.4,2iplt  -4.1?l.l,p|t  -2.875,1 
59.  pit  -2. 875, 18. 4, pit  -4. 375, 10. 4.1, pit  -5. 625 . 1 0. 4 . 2 ,pl I  -5.625,1 

91.  pit  -4 . 375 ,1 , pi t  -4.375,10. 4, pit  -1 . 875 . 1 0. 4 . 1 ,pl t  -7.125.10.4,2 

92.  pit  -7. 125,1, pit  -5. 875.1, pit  -5.375.10.4 

93. 

94.  'label  axcs  amo  plot  data*. 

95.  for  0-t  to  B,H121-t0.4U/9.47f 

96.  V10.11-<Vt0.21-Vf0.1)3<1.37S*<0-l3f'SCALE'CB3*.2S>l/'SCALE'(B13t 

97.  pc 1  8*7. 12SiVCO,21-VIO.113/'SCALE'<Bl.R.S.C10.5Ht21-. 1S3/10.4 

98.  far  L-HUl-0  ta  HI23-D  by  D 

99.  pit  Vt0,ll*<CV10.2J-Vf0.113/'TlC'tBJ>C3/4,L.l,plt  VCO , 1 1 ,L .2 , next  L 

100.  far  L-VtO.ll'C  to  Wf 0 .21 • le-6-C  by  C 

191.  pit  L.Mf 21.1 iplt  L.HI21-.104U/9.4.2,ncxt  L 

102.  for  L-Hl  21-0  to  HID'D  by  >0 

103.  pit  Vt0.21.L.l,plt  Vf0,21-C/4.L.2,nect  L 

104.  for  L-VI0.21  to  VlO.ll-lc-6  by  -C 

105.  pit  L-C/8, Hill-. 42W/9. 4.1, calx  1.2. 1.90, fid  3,lbl  xtrCL> 

106.  If  Lrvi0.ll  and  Lrvr0.21,plt  L, Mill. 1, pit  L .HI  1 1 . . 1 04H/9. 4 ,2 

107.  next  L.cxlx  1.5,2,1.190 

10B.  pit  VIO, 11*11-.  75/  'SCALE  'CB3XV10, 21-VfO, 113/2, Mill-. 55’ */9. 4,1 

109.  lbl  Cil AtOll, rreod  l.Y.TO.S 

110.  for  H-t  to  A101,srrod  1.5, next  It 

111.  pit  S.'TIliC'.l  icplt  -.33,-. 15, lbl  'o', pit  S.'TiME'.l 

112.  for  L-Y*l  to  Z, rreod  l.L.TO.S 

113.  far  H-l  to  A101, oread  1,5,  next  It 

114.  pit  S. 'TIME', 2, next  L 

115.  cplt  -.33, -.15, lbl  *#• 

116.  next  Otexlx  1,2,1,90 

117.  xcl  7. 125.0.H121-10.4W/9.4, ( 10. 5H123-. 1 (HI 21-1 0. 4M/9. 43 3 /10.4 

118.  for  L-Hlll  to  Ht21  by  0,plt  1 . 125  ,L- . 104M/9. 4 ,1 ,L>8 

119.  far  71-1  to  12 

120.  if  not  (n*l  or  71-3  or  H-5  or  71*7  or  M-8  or  H-10  or  H-123il«p  3 

121.  if  0-276480 0<0 ,  qlo  ‘PRINT* 

122.  0-267840038 

123.  If  not  <71-4  or  M-6  or  M-9  or  M-113,J«p  3 

124.  If  0-2678400<0|9to  'PR1MT* 

125.  0-259200038 

126.  if  not  N-2,lap  3 

127.  if  a-2503600<0i9ta  -PRINT* 

128.  0-241920038 

129.  next  It 

130.  'PRINT*. if  0-86400, f xd  0,lbl  xtr<0/03 

131.  if  D-3600 i f xd  0 i lbl  »tr< (Q-864001nt (0/8640033/07 

132.  if  0-60, fid  0 , lbl  xtr((0-3600int(0/360033/0> 

133.  if  0-1 , f xd  0 § lbl  str<ca-60int (0/6033/DJ 

134.  next  L,cxlx  1.5, 2, 1.90, pit  .  875  ,Ht  13- .32978711, 1 

135.  if  8t--0000000000*i]aa  2 

136.  Bt(l,210*-**B*f3.41«*  * »B« t5 .610* . *18017 ,81 0* .' *8019, 10 1>M$ , j  mo  2 

137.  rreod  1 ,S,T* ,T0 1 1 .210 *- *»Tt f 3. 41»*  * |T» t5 . 630* .* »T0t 7 .81 »*  .* 11*19,101  3MO 

138.  lbl  *Tl*o  t«  *»Ut»*  beqtnninq  *  13tt  ,wtb‘ -PRINTER*  ,  12 , 13.27 .69 

139.  end  -  - 

140x 

141,  ‘TIME*. 

142,  0ia,for  M-l  to  vol CT tt 1 ,233-1 

143,  if  M-l  or  M-3  or  M-S  or  M-7  or  M-8  or  M-10  or  M-12, 8*267840038, Jop  3 

144,  if  M-4  or  M-6  or  M-9  or  M-l 1 ,Q*259200038i|op  2 

145,  if  71-2,8*241920038 

146,  next  N 

147,  8* 864 00 vol (T X 13, 433 *3600 vai CTO (5, 633 >8 

148,  rot  0»60val(Tt(7.313«valCTi(9,101) 

149, 

150,  "SCALE*. 

151,  if  pi -2 , ret  2.75 

152,  if  pl-3,ret  1.75 

153,  if  pl-4 , ret  1.25 

154, 

155,  *TIC*. 

156,  If  pl-2,rot  18 

157,  if  pl-3,ret  6 

158,  If  pl-4, rot  4 
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Kevin  Hiller  .Trip  Carter  a  file*  S7K1B  ■  *, 

*■  July  21.  1983  a  Update,  July  21.  1983 

••  Naval  Research  laboratory  a  Output  Device,  7245  a', 

'■  Space  Applications  Branch  a  Select  Code,  718 


•OCT  FILE  MAFIC  AMO  PLOT  INTERVAL*, 
dsp  'Insert  Soflcopy  Graphics  Tape*istp 
ldb  1 i dev  'PR1NTCR' ,706.'PLOTTCR' ,705. 'CLOCK* ,9 
dm  FI|6),DII6).TI(  141.UU71.nl  I  4  0).H(21,VI4, 21.811 121,tlH21 
dm  At4], AIM, 31, Cl  26)  ,CS(25,10],J!(25J 
dmC.D,E.F.6,I.J,K,L.H,N.P.0.X,V,Z,4>K 
*lst”)AStl),'2nd")AI[2J|*3rd”)AI(3],'4th”)AI(4) 

")FI,ent  "Enter  Data  File  Moae',FI,lf  fl*13,Jap  8 
as**  Ft, 1,1. 8 

if  0*1, dsp  Fit*  does  not  ezlit'iuait  1500, Jap  *2 

as*n  Ft.l.l,rread  1 , 1 , G , N , 1 . D* , P , J 

If  N(3|dsp  'Not  Enouqh  Data  for  Plat’istp 

far  L-l  la  J,sread  1 ,C!L 1 .ClfL 1 . JtlL.L 1 i neat  L 

eal  'Plot  Data  froa,  rwiDDHHHHSS*  ,BS 

If  f 1*13, *0000000008*188 

If  len(BI) <1 0 i dsp  'Not  la  Proper  rorp'ivslt  1500, Jap  -2 
eat  ‘Plot  Data  to.  mODHHrfllSS*  ,E0 
If  f  1*13,  '9995999999*  >E8 

If  1  en(E I >ri 0 ,dsp  'Nat  la  Proper  Forp*|wait  ISOOijap  *2 
for  L-l  la  4 

dsp  'Enter  * lAI(L) t*  Channel  ta  Plat* 
eat  **.AtL),lf  not  fl*13|Jap  3 
tf  L <3 i Jap  -2 
1-1)8, Jap  5 

If  A1LX0  or  A(Ll>39,dsp  'No  Such  Channel  Nuaber*  ,*elt  1500,  Jap  - 
for  N-l  to  Jitf  CtMlrA(L) inest  Nijap  2 
N) AIL) , nest  L, 4)8, Jap  2 

fid  Oidsp  'No  Data  Collected  at  Channel  * Istr (AIL )) ival 1  1500,Jap 
for  L-l  to  8-1, for  H-L«l  to  8,if  A(H1>-AIL) , Jap  2 
AIL  1 > A , A( H) ) AIL  1 1 A) AIN) 
neat  FI,  neat  L 


•CALCULATE  UNITS  F08  AXES*, 

Freed  l.K'DK.TO.Ctlf  Tt<Bt,Jap  8 

K)V,1)F ,0)H, far  L-l  la  8, for  *-l  ta  AlL)-K,sread  l.Cmeat  M 

'TlHE'JHlll  iC)VIL,l))VfL,2)  ,AILl)M,ncat  k. 

for  L-K-l  to  N.rread  l.L.Tt,C,lf  TITEIsJap  S 

r-l)r,0)H,for  N-l  to  8, for  0-1  to  AIN)-H,sread  l.Cmeat  8 

tf  C IVIN,  1  ]  iOVIN.tl 

If  C7VIN.21 |C)VIN.21 

A(HI7H,neat  Hineat  L 

rread  1  .L-DZ.Tt, 'T1HE*>HI21 

If  HI 2 ) -HI 1 )>86399, 'DAYS* )UI ,86409)0, Jew  4 

If  HI 2] -HI  1 )>3S93, ' HOURS *)U* , 3600)0, Jap  3 

If  HI2)-H[1]>59, 'HINUTES'TUI ,60)0, Jap  2 

'SECONDS* TUI, 1)8 

DinlCHtl]/D))HIl),0lntCH!2)/D-l))Ht2),H[2}-HCll)M 
for  L-l  to  J,for  N-l  to  lnt C5-lenCCIIL))/2J 
*  'tCtlLDCtlD  i neat  N,neal  L 
0111, 2)«*-'IDtl3.4)t*-* IDII5. 6)}T*, 416 

•INITIALIZE  PLOT  AREA’S 

fad  0,hdcpy  Oipsc  718ipclriscl  0 , 10.5,0 ,7. 125 iplt  8,8,8 

pit  8,. 75.2, pit  18. 4. .75, pit  10.4,0,plt  0.0, pit  0,5/16.1, pit  10.4 

for  L-l. 5  la  9  by  1.5, pit  L,. 75.1, pit  L. 8. 2, neat  L,cilf  1.5, 2.1 

pit  . 55 ,9/16. 1 , lbl  ‘Date*, pit  .5 ,5. 7/16,1 , Ibl  ’Today* 

pit  .21. 1/11.1, lbl  Tm.21»*-*»Ttl4,51»*-88  * 

pit  1.85,7.5/16.1, lbl  'Proqraa* ,plt  1.61.1/11.1,161  *  Stackplot* 
pit  3.25.9/16.1,161  'Data  Flle*,plt  3.57.5.7/16.1,161  *Naaa* 
pit  3.52,1/11.1,161  FI4*  * 

pit  4.88,9/16.1,161  "Points* iplt  4. 83,5.7/16,1 , lbl  'Plotted* 
pit  4.92.1/11.1,161  slrlF)8*  * 

pit  6.2.7.5/16.1,161  Treoueney’iPlt  6.15.1/11.1 
fad  2,161  strCl/P«le-6)t*  IWl  *• 

pit  7.6, 9/18, 1,161  'Neasareaenl* ,pl t  7.8,5.7/16.1,161  ’Interval* 

pit  7.6, 1/11.1, fad  8,16)  strlllt*  see*  *  •  - 

pit  9.18.9/16.1,161  'Channel*, pit  9.18,5.7/16.1,161  ’Fonctkoa* 

'OC  Vol ta*e’)NI, If  Jll Al 1 1 . At  11 1 • • A* , • A' Mill ,13 
if  JIIAIll.Allll-'O*,*  Ohms ' >H8 
pit  9.1.1/16,1,161  Ntiplt  18.4,1.375.1 
if  6*2, Jap  4 

pit  18.4,4.125,2,plt  1,4. 125, pit  l.t.375,pll  10.4,1.375 
pit  18.4,4. 375 , 1 ,pl 1  10.4,7. 125, 2,plt  1,7. 125, pit  1,4.375 
pit  10.4,4.375 
if  B*3| Jap  5 

pit  10.4,3. 125. 2, pit  1 ,3.125iplt  1.1. 375, pit  10.4,1.375  . 

pit  10.4 ,3. 375 , 1 ipl 1  10.4,5. 125, 2, pit  1.5. 125, pit  1,3.375 
pit  10. 4, 3. 375, pit  10. 4,5. 375, l, pit  10 . 4 ,7. 125 ,2 ,plt  1.7.125 


2 

-7 


.S/16,2 


ST.  Bit  1 .3. 373 i pi t  IS. 4. 5. 375 
88.  t *  ft 

S3,  alt  10. 4. 2. 625, 2, pit  1,2. 823 i  pi  t  1.1. 375, pit  IS.  4,1.37ft 

91.  sit  10. 4. 2. 875,1, Pit  10.4.4.125.2,011  1,4. 125, pit  1.2.879 

91.  pit  IB. 4 . 2 . 875 , ol t  10. 4. 4. 375.1, pi t  1 0 . 4 .5 . 625 , 2 , pi t  1,5.629 

92.  Bit  1.4. 375, pit  10.4.4.375,011  1 0 . 4 . 5 . 875 . 1 ,pl t  IS. 4, 7. 125.2 

93.  pit  1.7. 125, pit  1,5. 875, pit  10.4.5.879 

94. 

95.  'LABEL  AXES  AND  PLOT  OATft* i 

96.  for  0*1  la  8 , Hi  2 ] -  1 0 . 4U/9. 4  IS 

97.  VfO.  1 1- (VI  0,21 -VI  0.1 1)1 1.375*  (0-1  )< 'SCALE  •(!!>♦.  251  >7 'SCALE  *C8)>» 

98.  ael  S.C10.5HI21-. IS)/ 10. 4 ,8 .8*7. 1 25(VI 0.21 -VI 0,11)/ 'SCALE '(B> 

99.  for  L-H(11«0  te  MI21-D  by  0 

100.  pit  L.VI0.11*((V(0.21-V(0.11)/'TIC*(B)>C)/4,liplt  L .  VI  0. 1 1 . 2 , next  L 

101.  far  L*VI 0, 1 1 *C  to  VI 0,21* lc-6-C  by  C 

102.  pit  HI21.L.1 ,pl t  H121- . 104W/9.L ,2 , next  L 

103.  far  L-MI21-D  te  H(11*0  by  -O 

104.  pit  L. VI 0,21 , 1 tpl t  L.VI0.2)-C/4.2,next  L 
109,  far  L-VI0.2)  to  V{0,l)-le-6  by  -C 

106,  pit  Hill*.  6814/9. 4,L-C/8,l,cxlx  1,2, 1,0, fxd  2,Ibl  str(L) 

107,  If  L/VIO.ll  and  L/Vt0,21iplt  Hill, L.l, pit  HI  1 1 •  .  1 04W/9. 4 ,L,2 
109,  next  Licxlx  1.5,2.1.90 

109,  pit  Hill-.  85M/9. 4,VI0,11*(1-.7S/'SCALE'CB))(VI0,21-Vf0,ll)/7,1 

110,  lbl  CSt AI011 ,rre,d  l.V.Tt.S 

111,  far  H-l  ta  AlOIixread  l.S,next  ft 

112,  pit  'TIME*  ,  S,1  ,cplt  -.15, -.33, lbl  ‘e‘,plt  *Tl**,S.l 

113,  far  L-Y-l  ta  Z.rread  l.L.TI.S 

114,  far  A*I  to  AlOliareed  l,S,next  It 

119.  pit  'TIME*, S. 2, next  L 

CIS,  cplt  - . 15, - . 33, lbl  •a* 

117,  next  O.exlx  1.2,1, ft 

lift,  xcl  H121 -10. 4U/9.  4,  (10. SHI 21-.1  (HI 21 -18. 414/9.4)1/10.4,0,7.129 

119,  for  L-HI11  to  HI21  by  0,plt  L-. 177W/9.4.1. 125,1 ,L)ft 

120,  for  H-t  to  12 

121,  If  not  (Pf-1  or  M-3  or  M-5  or  14-7  or  H*8  or  It-IO  or  H-12)il<ap  3 

122,  If  8-2764800(0, Sto  'PRINT* 

123,  8-2678400)9 

124,  if  not  Cff-4  or  H-6  or  PI-9  or  H-ll)|]op  3 
129,  If  8-2678400(0 , 9t a  ‘PRINT* 

126,  8-259200)9 

127,  If  not  14-2,100  3 

129,  If  Q- 250560 0(0,9ta  ‘PRINT* 

129,  8-2419200)9 

130,  next  N 

131,  ‘PRINT*. If  0-86400, fxd  0,!bt  xtr(8/D) 

132,  if  0-3600 , f id  0 , lbl  str< (8-86400 int (Q/86400))/O> 

133,  If  0-60, fxd  0,lbl  xtr < (8-3600 lnt (8/3600)1/0) 

134,  If  0-1, fxd  0 , lbl  xtr((8-60lnt (8/60) ) /D) 

139.  next  L.extx  1.5 , 2 .1 .0,pl l  Hill-. 2378N,. 879,1 

136,  If  BS-‘0000000000*,]ap  2 

137.  8SI1.2)«‘-‘t8*(3,41«*  •  18*15,61  A*  ■  *  .6*17,8).*  ,‘t  9019, ISDN*  ,]ap  2 

138.  rread  1,5.TI  ,T0II  ,21»«-‘AT»13.4)»*  •  IT  I  (,9,61s*.  •  »T*(7. 81*‘  ,  ‘»T*I9, 1011HS 

139,  lbl  *Tlaa  la  ‘SUSS*  beqlnnlnq  ‘»H*«*  • 

145,  and 

141.  ■ 

142.  *TlPC*x  . 

143.  0)8, far  H-l  ta  val(TI(l,2])-l 

144.  If  H-l  or  M-3  or  H-9  or  H-7  or  M-8  or  14-10  or  N-12, 0-2678400)9, )ap  3 
149,  if  H-4  or  N-6  or  M-9  or  H-ll , 9-2592000)9, ] ap  C 

146,  if  N-2, 9 -24 1920 0)0 

147,  next  IS 

148,  Q«864Q0val  CTSI3.4J)  *360  Oval  CTSI5,61))9 

149,  ret  0«60va)  ETSI  7,81) -val  (TSC9, 101) 

15tx 

151.  ‘SCALE*. 

152.  If  pl-2,ret  2.7S 

153.  if  pl-3,ret  1.79 

154.  If  pl-4 ,ret  1.25 

155. 

156.  *TIC*. 

157.  If  pl-2,ret  19 

158.  Lf  pl-3,ret  6 

159.  If  Pl-4irat  4 

iM 
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PS OGPAK,  QUICK  L I ST* • 


2i 

3. 

•  a  • 

Ktwt  a 

milpr 

•  aa 

• 

file* 

sunt  a 

4* 

■ 

Update 

•  December  2 0 ,  1980  1 

s. 

•» 

Haval 

fiesrareh  laboratory 

■ 

Output 

Device*  9829  ■ 

b* 

7. 

*■ 

•  aa 

Space 

Applications  Branch 

■ 

aa* 

Select 

Code*  18  0 

3.  dim  rilSl ,01161 ,*11401 .G.H.l ,4 

10*  "  *  )  T  •  *  ent  *C  nler  Date  TlM  Nam«»,rt|lf  fiql3|jap  • 
lit  aaqn  fl,l ,1,9 

12*  If  Qal|d)p  fit*  does  not  ezist'jwell  1500 »jnp  *2 
13*  esq*  f • , 1 , 1 f r read  1 , 1 , G ,M , I , Of ,P , J t soc  3 

14i  fzd  2#  *••*••••••■*-••••*)  Ml  iprt  HI, 'Gale  Tu«  1  *'  ,  'msee  *  * ,  G  ,Ht 

IS*  fad  0|prt  'Total  Number  of  *  ,  'Pol  r»l»*  t  *Col  1  ec  ted*  *  ,8 
16*  f*d  0|prt  Interval* ,,8etw«tn* , 'Measur ements* 

17*  prl  'I*  ircn',1  .ni,  *Datoi  '  4DII 1 ,2 1 1  *  -  *  *0  •  l  3  .  «)  I  *  -  '  IDI 1 5 , 61  ,«• 
18*  fit  S|pr t  "Si qnal  Per todi * ,P,Mt 

19*  fsd  Oiprt  'Voltaqe  Channels' , 'Sampled* *,4,HI }9pc  3 

29#  end 

■12728 


3ro  jraul  . £  U  1 1 6 


(•  *suareoGEAH>  quick  ust*. 

l. 


1 

X 

Kevin 

m  Her 

a  a  a 

a 

rile.  . 

0U1 18 

»• 

[  1 

January  14,  1389 

■ 

Update* 

December  20. 

taao  ■* 

.  V 

Hava  1 

fieseerch  Laboratory 

■ 

Output 

Device.  38ZS 

■  * 

1 

if 

Space 

Application*  Branch 

■ 

aaa 

Select 

Code*  16 

■  * 

!• 

*•  fid  . . .  ni.'Oitt  1)M 

1 0 1  fid  Ofprt  ‘Total  Humber  il'.’Pginli  to  b«* , ‘Col  I « led. • ,M 
Hi  fid  Oiprt  HI.'flM  Interval  *  ,  ‘Betveen*  ,  ‘fleeiureoent** 

12.  prt  *»a  i«e». •.!.««, ‘Polo.  • tO» 1 1 ,2 It ■ - ‘ »D»13,4 1*‘ - * tD» 15 ,61 .ltd 

13.  fit  6iprt  ‘Clonal  Per i od. * ,P ,nt , *Pn i nl ■  Collected* 

14.  fid  Oiprt  *Se  Tar .• ,K- 1 ,rtt , *Vol tooe  Channel*" , ‘Sampled. * , J,M» i ipe  3 

15.  rat 


SC  A  3  6 


•PPOGPAH.  VOLTAGE  OAT*  LIST* 


Kevin  Sillier 

January  I i ,  1900 

Navi J  fre.rnrch  laboratory 

Oeace  Pool i cat i ana  Branch 


rtioi  scaos  ■•« 

Update.  Decraber  20,  1981  l*i 
Output  Device*  72t5  e*i 
Select  Code*  708  v*i 


9.  "GET  r 1 LE  NAME  AND  LIST  INTERVAL*! 

10<  das  ‘Inacrt  Saftcopy  Graphico  Tape'iats 
Hi  ldb  1 1 dev  ‘PRINTER*. 706>r0. ‘CLOCK*. 9 

12i  dlaf*t61,0»l61.T»fl21.Rltl21.Cl2S],C*I40,101,Jtt2Sl.Stl51,HtlS.21,Mtt40) 

13.  ••irtient  ‘Enter  Data  rile  Naac‘,rt,if  flql3,)ap  • 

li.  aaqn  F0. 1.1, 8, if  0*1, Jap  2 

15i  dap  fll*  doea  not  exlat'.valt  lSOOiqte  - t 

1G<  aaqn  Ft.l.l.rreed  1 ,1 ,G .N. I ,0* ,P,J 

17i  If  J-0 , ape  3.prt  ‘Ho  VOLTAGE  DATA* , ‘Obtained  this* . ‘Teat . ‘ i ape  3icnd 

10.  for  L-l  ta  Jiaread  1 ,CIL 1 ,Ct(L 1 , J«(L ,L 1 , neat  L 

19.  er.t  ‘LI  at  Date  Since.  nnDOHHianSS*  ,T0 

20.  If  f lql3i 'OOOOOOOOOO'ITO 

21.  If  lend  t  >*1 0  .  dap  ‘Not  in  Proper  fora'ivait  ISOOiJap  “0 
22a 

23.  ‘FORMAT  STATEMENTS*. 

24.  fat  2,2/,21x,*  aaaee  Thermal  Vacuum  Teat  Facility  .  *,2/ 

25.  fat  3.el4 .t 

26.  fat  A.clO.Z 

27.  fat  5. ••■■»»■■•■■■..■*!« 

20.  fat  8, *■■■■■ ■■■■■*,z 

29.  fat  7,f9.3.X 

30.  fat  t,eS,i,i 

31.  fat  9,ct,l 
32a 

33.  ‘ADDITIONAL  COLUMNS*. 

34.  OlA.cnt  ‘How  Many  Additional  Coluana  7‘,A 

35.  if  A>15. dap  ‘Too  Many‘iwait  1500, qta  *1 

36.  if  AC-Oiqto  ‘PRINT  BOX* 

37.  ent  ‘Print  Preaent  Channel  Naaei  ?*,Bt 
30.  if  cap<Rttl.lD«*Y*iqte  ‘5 

39.  fad  Oiprt  •  *.*  *,*  Channel  Naaem*.*  ‘.for  X-l  ta  J.lf  CtXJ<10,gto  «2 

40.  prt  atrCCtxm*)  ‘tCtlXliqte  *2 

41.  prt  *  ‘  latr(CI<nt*>  ‘tCICXl 

42.  neat  X,prt  *  *.*  *.*  * 

43.  far  L-t  ta  A, fed  Oidap  ‘Naae  of  Add-on  Col uan* let r CL) i ent  ‘*,C*IJ-L1 

44.  if  f lql3» ‘Add-on  • tatr <L3 »Ct t J«C1 

45.  501HIL.il  lent  ‘Ortqln  Channel  ?‘.NrL,t7* 

46.  far  X-l  to  J|if  MIL . 1 1 -Cl XI , XlMfL . 1 3 iqto  *3 

47.  neat  X.lf  MtL  .  1 1-50 tq to  -2 

48.  dap  'Invalid  Cetuan  Nuaber'iwoit  1500, qte  -3 

49.  501HTL.2]  tent  ‘Multiplicative  Channel  7*,mL,2l 

50.  far  X-l  ta  Jtlf  Ml L .23 -Cl XI , X1NCL.21 , 9 te  -3 

51.  neat  X,lf  MIL. 21-50, qto  *2 

52.  dap  'Invalid  Column  Number* ,valt  1500,qta  -3 

53.  11S1L3 ,eat  ‘Scale  Feeler  ?*.SlLl,next  L- 

54a-- 

55.  ‘PR1HT  80X*. 

56.  wtb  ‘PRINTER*. 12. 13 

57.  ell  ‘ahtab*U7. 25. 41,53,65.777 

58.  wrt  ‘PRINTER. 2* 

59.  fat  1.40‘d*./,‘e* ,38*  *,•■*, wrt  ■ PRINTER. 1* 

60.  Dm,21»*-*l0tt3.4l4*-’iDatS,611Htiqab  ‘PAD* 

61.  wrt  ‘PRINTER*. *■  Start  Date  of  Teal.  ‘tMM*  8* 

62.  fed  2,atr<l/P*le-6>»‘  HH*‘JMt,sab  ‘PAO* 

63.  wrt  ‘PRINTER*. ’■  Slqnal  Frequency.  ‘(MOO*  8* 

64.  fed  0,atr<G30*  naec‘>M*,qab  'PAD* 

65.  wrt  ‘PRINTER* , *■  Gate  Tlae.  ‘»H04*  8* 

66.  fed  0,atr<N)>Nt,qab  ‘PAD* 

67.  wrt  ‘PRINTER*. *8  Number  of  Point*.  ‘tMIO*  8* 

68.  fed  0,atr<130*  aee*‘lM»,qab  ‘PAD* 

69.  wrt  ‘PRINTER*. *■  Meeaureaent  Interval.  ‘lNt»*  8* 

70.  Ftint.qab  'PAD* 

71.  wrt  ‘PRINTER*. ‘8  Data  file  Naae.  ‘tNtt*  8* 

72.  ‘SCA06* 1H0 ,qab  ‘PAD* 

73.  wrt  ‘PRINTER*. *8  Proqraa.  ‘tMIO*  8* 

74.  fat  1, *8*  ,38*  *,*■*,/ ,40‘**iwrt  'PRINTER. 1* ,]ap  3 

75.  ‘PAD*. for  L-l  ta  12, If  MtlL,L3-**»*  *>Mt(L,Ll 

76.  not  L.ret 

77.  wtb  ‘PRINTER*. 10. 10 

78.  N}S,0)C|l)r51 

79. 

80.  ‘CENTER  CHANNEL  NAMES  IN  CO*. 

81.  for  L-l  to  J*A 

82.  len(Ct(L13>0,lnt((ll-0)/2)>R 

83.  for  M-D»l  ta  10 

84.  .*  ‘ >Ct IL.N.Nl 

85.  next  N  . 

86.  for  N-O-R  to  R‘l  by  -1 


ITT 


87,  c«d.,n-*,n-ai>et!i.n,M! 

88,  neat  M 

88,  far  14-1  ta  > 

98,  *  MCltL.N.NI 

91,  neat  N 

92,  »r*t  L 

93, 

94,  'PRINT  COLUMN  HEADERS'. 

99,  0)8. J« A-EIO, If  0>5 ,0-3)8 ,5)0 

96,  art  'PRINTER. 3*. '  Data  T)aa  * 

97,  ell  ‘tab* 

98,  art  'PRINTER. 4', 'Phase  * 

99,  for  L-E*l  ta  E*0 

108,  ell  'tab* 

181,  art  -PRINTER. 4', CtILI 

182,  nest  l 

103,  alb  'PRINTER*. 13, 18 
184,  art  'PRINTER.S* 

105.  far  L-l  ta  0*1 

106.  ell  'tab' 

187,  art  'PRINTER.** 

100,  nest  L 

109,  alb  'PRINTER*. 10, 13 
118a 

111,  'PRINT  08T8*. 

112,  far  L-l  la  S.rread  l,L'4,R8,rl 

113,  If  Rt<Tt ,9ta  *13 

114,  for  H'l  ta  Jtsread  1 ,r EH' 1 3 , nest  M 

115,  for  X-l  to  »,SIXJarCMIX,l)'nsr<M(X,2)'13>r{J'X' 

116,  art  'PRINTER. 8', Rf 11 .211'-' tRt t 3. 41 

117,  art  'PRINTER. 9*. RtCS. 618', '»Rtl7.ait','»RtI9, 101 

110,  ell  'tab' 

119.  fat  2,el0.4,s 

128.  art  'PR INTER. 2* ,rl 

121,  for  M-E*I  ta  E*0 

122,  ell  'tab* 

123,  art  'PRINTER. 7* , r EM*  13 

124,  nest  N 

125,  atb  'PRINTER*. 10, 13 

126,  nest  L 

127,  atb  'PRINTER* ,12,13 

120.  If  RrO,E-5)E ,qto  'PRINT  COLUMN  HEADERS* 

129.  atb  'PR INTER', 27, 69 

130.  end 

131. 

132.  'lob*. 

133.  If  p2-0,9ta  *4 

134.  If  p2<0 ,<|te  ♦* 

135.  atb  r8.11,)a»  2C Cp2-1 )p2J -03 

136.  atb  r«. 27,56, lap  Cp2'l>p23-8 

137.  If  pl-8,l>pl 
130.  t»  »Ut,tU  •* 

139.  atb  rO ,9, )ao  2fCpl-l)pI3-03 
148.  atb  rO ,27,92 1 J ap  (pl'l)pl)*0 

141.  ret 

142.  'shtab*. 

143.  l)Y,atb  r«,13|lf  Cpl)Q7-8|r«t 

144.  If  CQ-l)Q}>0,etb  r8 ,32, jap  * 

145.  atb  r8.27.49 

146.  If  p<Y'l}Y3-0,atb  r0.13,rat 

147.  pV-ptY-13*179|9ta  -3 
0768* 


'PROGRAM,  VUL’AVt  DATA  DISPLAf*. 


>«*l«  niilir,  Trip  Carter  •  File.  SCA18 
July  23,1963  ■  Update i  July  25,1303 

Naval  Irirarcn  Laboratory  a  Output  Uevtce*  7243 
Space  Application*  Branch  ■  Select  Code*  718 


■OCT  MLC  NAME  ANt>  LIST  INI ERVAL*  s 
dap  'Insert  Softcopy  Graphic*  Tape'islp 
Idb  1 1 dev  'SCREEN* , 7 1 8 > r 0 , 'CL OCK • ,9 

die  Ftt61 ,0*161,1*1 121 ,R*( 121 ,Cl2S).C*t 40,181 ,J*(2S1,SI 151 ,  ml  13,21, n*l 481 

**ir*ient  'Enter  Data  Flic  Nane'.FIjif  flgl3tjmp  0 

ssgn  r*,l,l,8ilf  uaiijmp  I 

dap  r»»*  doe*  not  exlst'iwoit  ISOOigta  ~t 

osgn  r*,t,tirreod  1 , 1 , G ,M , I ,D* ,P, J 

If  J*0|*pc  3iprt  'No  VOLTAGE  UATA' , ‘Obtained  t hi  * • , 'Tee t . * j *pc  3iend 
for  L-l  to  J i tread  1 , Cl L 1 . C I ( L 1 , J» 1 L , L 1 , ne * t  L 
ent  "List  Seta  Since.  mmDOHHnmSS' , TO 
tf  f lgl3i '0000000000'lTt 

if  lenLT*} at 0 |d*p  'Not  in  Proper  Eora'ivott  1500,jnp  -2 
'ADDITIONAL  COLUMNS*! 

0) A i ent  'How  Many  Additional  Coluaan  ?',» 

If  AMSidsp  'Too  Hany'iweit  1500, gta  -1 
if  A<*0 ,gto  'POINT  BOS* 
ent  'Print  Present  Channel  Naaen  7*, 88 
if  capOm.lllf'V*  into  *5 

fad  Oiprt  *  *,*  *,*  Channel  None**,*  *ifor  X  - 1  to  Jjif  CtXHIOigla  *2 
prt  strtClXlJC)  *»C*fXl,gto  *2 
prt  *  '»slrtClXll»*>  *tC((Xl 
neat  X , prt  •  *.*  *.*  * 

for  L-l  to  Atfad  Ofdap  'None  of  Add-on  Col  unn*  Is  tr  ELI ,  ent  ",C*(J*LJ 

if  flgl3i 'Add-on  • Is Ir ELI >C*f J*L1 

501NIL  ,  1 1  tent  'Origin  Channel  7*. NIL. 11 

for  X-l  to  Jitf  M(L,ll*ClXJ|X>M(L,lligia  >3 

neat  X|if  NIL.lI-SOiglo  *t 

dap  *  Invalid  Coluaa  Number  * i wa 1 1  1500 igtn  -3 
SOIHfL.21 tent  'multiplicative  Channel  ?',MIL,21 
for  X-l  to  Jilf  miL,21-CCXl|X>mL,21  igta  *3 
neat  Xilf  MIL, 21-50) gts  *8 

dsp  'Invalid  Column  Number*, wait  1500, gte  -3 
11SIL1 , ent  'Scale  Factor  7*.S(Ll,neat  L 

•PRINT  BOX** 

fad  3|hdcpy  0,p*c  718,pclr 

scl  1,83. -49.1, pit  19,  -3, 1  ,wtb  ‘SCRCCN*  ,  *esf, s , pel* 
wtb  'SCREEN*, 'cst... pel, ..ta  mmmaa  THERMAL  VACUUM* ,3,13,18 
vtb  'SCREEN*. *cs0,.. pel,.,  ta  TEST  FACILITY  *««■•  ,3, 13,18 
wrt  "SCREEN*. *pe8*  . 

pit  l,-8iwtb  'SCREEN*,  *cs8,.t  pel,,  ita  eeaaexneaaaa«aajaneaeaeane*,3,13,18 
wtb  'SCREEN*  .  'cs8  , .  .pel ,  . .  tmwmu.iH*  ,3, 13,18 
wrt  *SCRCCN*,*pe8*iplt  1.-9 

wtb  'SCREEN* ,'cs0,..pel,..tx  ■  *,3,13,18 

wtb  'SCREEN*. 'cs8,. .pel,.. ts  e', 3, 13, 18 

D*(l,21  «•-  '  *0*13,4  If  -' ID*  15,61  >N*,gsb  'PAO* 
wrt  'SCREEN*, *pe8* , pit  1.-18 

wtb  'SCREEN*. *e»8,. .pel, ..la  ■  Start  Date  of  Te*ts  * intt’n* ,3, 13,18 

fad  2,»tr<X/Pnie-6)A*  rma'>l4»,g*b  'PAD* 
wrt  'SCREEN* , *pe8* | pi t  1,-11 

wtb  'SCREEN* ,*c*8, . .pel, . its  ■  Signal  Frequency!  *in*t*  ■*,3,13,18 

fad  OjstrfGlf*  msec*  >Ft*  ,g*b  'PAD* 
wrt  'SCREEN* ,*pe8*iplt  1.-12 

wtb  'SCREEN*, *c*S, • .pel,. its  ■  Getc  Tines  ’*M(t*  ■*,3,13,18 

fad  0i*trCN))N*ig*b  'PAD* 
wrt  'SCREEN*. 'pet'iplt  1.-13 

wtb  'SCREEN* , *es8, i .pel , • ■ ts  ■  Number  of  Pointss  '*n*«*  ■*,3,13,18 

fad  OiatrfDA*  seem' >M*  ig*b  'PAO* 
wrt  'SCREEN*. *pe8*»plt  1,-18 

wtb  'SCREEN*. *e*S,. .pel, ..ta  ■  Measurement  Intervals  **F1*t*  ■*,3,13.18 

FtlMtigsb  'PAO* 

wrt  "SCREEN* ,*pe8*iplt  1,-13 

wtb  'SCREEN*. *c*8,..pel,..tx  ■  Data  File  Name,  ' *M**'»* ,3, 13,18 

'SCA06* IMS ig*b  'PAO* 

wrl  'SCREEN* ,'peO'jplt  1,-18 

wtb  'SCREEN', *e*e,i, pel., ,'.■  •  Programs  •  *n«» '■•  ,3, 13, 18 

wrt  'SCREEN* , 'pe0*jplt  1.-17 

wtb  'SCREEN*, *c*8,s. pel, >•!■  ■  *,3,13,18 

wtb  ’SCREEN* , *c*8 , • ■ pel, , six  ■*,3,13,18 

wrt  'SCREEN* ,'peO'iplt  l.-l# 

wtb  'SCREEN* , *es0 , s , pel , . ■ ta  •■«*»»**■*■*■••■• ,3, 13,18 

wtb  ‘SCREEN* , *e*8, • .pel ,i.ti***«***aaiiiiixa*«ii**ea*,3,13,lt>ijnp  3 

•PAD*. for  L*1  to  12, if  MlfL.Ll-****  *>M0(L,LJ 

neat  L,r«t 

N»Si0)E|l»r51,22)« 

0)R* J'A-E>0| if  0>S|0-S)R|S>» 


■• ,3,13,18 


•*M»»'»*,3,13.18 


■*,3,13,18 


■*,3,13,18 


■*,3,13,18 


pit  1,-14 
■pel, ■ <t« 


■  Measurement  Intervals 


pit  1,-13 
■pel.sstx  ■ 


Data  File  Nemos 


■',3,13,18 


'(nil's*, 3, 13, 18 


’.3.13.18 


'Ml*****, 3, 13, 18 


■*,3,13,18 


•peO*  jplt  1,-18 

*e*8, .  .pel,  n'.x  ■  Programs  *inti***,3,l 

"peO*  jplt  1.-17 

*cs8 , <  > pel , a • lx  ■  *,3,13,18 

*c*8 , • >  pel, . t lx  ■*,3,13,18 

•peO'jplt  l.-lt 

*es8, . .pel , . • ta  •■**»»*neae»o*««* ,3, 13 ,18 
•e*0,.. pel, iit»***«***aa****«a **•*****■•, 3, 13, lOiJnp  3 
to  12| if  MlfL.Ll*****  *1M»IL,L1 

1 22>X 

f  0>5|0-5>R|5>0 


87.  osb  'PRINT  COLUMN  MtAOCRS* 

88  • 

89.  'PRINT  DATA*! 

90.  for  L *  1  to  S.rrrod  l,L*4,Rt,rl 

91.  if  «l<TI|jU  *17 

92.  for  P'l  to  fii.rrd  1  ,r  (N.  1 )  (  nei  t  It 

93.  for  X-l  to  A.SlXJerlNtX.ll'lJsr  (MIX,  2  1 '  »  >  >  r  (  J«  X  •  t  )  ,neat  X 
90.  -rt  'SCRCEN'.'peO'iplt  1,-8 

95 1  -lb  'SCREEN*  ,  'csO,  a  .pot ...  li'tRTI  1 ,2)*“- '  IRTI3.41 .3.13.10 

96.  .lb  'SCREEN*. 'csO... pel, ..ti  ' IRI ( 5 , 6  it  ' . ' »R * l 7 . 8 ) *  * . ' »» 1 1 9. 1 0  1 ,3 . 1 3, 1 0 

97.  .rt  'SCREEN*. *pe8,* 

98.  fit  4|slr<rl))n«|for  X-lenindJM  to  9i  *  ' 4MI ) Nt , nest  I 

99.  pit  IS . -X f.10  'SCRE£N*.'es0...pel,a.l«'*T'4.3,13.18 
!00a  .rt  'SCREEN*. *po0.* 

101a  for  M-EM  to  £*B 

102a  fsd  3istrlrlM'l>JlM*,for  X-lenlHt>*l  to  St*  'irlllMtinest  I 

103.  pit  27Ml<M-£-lJ.-*i«tb  'SCREEN* , 'esO.a.pel.aats' in* ,3,13,18 

104.  .rt  ‘SCREEN*. *pe0,*ine«t  N 
105a  X*2)K  a  if  K<50  ond  LfSioto  *3 
106a  dap  'Proas  Continue* |Stp 

107a  pc lr | 0 )K i gsb  'PRINT  COLUMN  HEAOERS* 

108a  nest  L 
109a  If  R-Oaend 

110.  E'5)£iO]8)J'A-£)0,lf  0>5|0-5)R|5>0 

111a  ate  'PRINT  DATA* 

till 

113.  ‘CENTER  CHANNEL  NAMES  IN  Ct*> 

114.  for  L-l  to  J*A 

1 IS a  len<C*tLU>Dt  int<(ll-D)/2}>8 

116.  for  M-0»t  to  18 

117.  *  'JCTtL.M.Hl 

118.  nest  N 

119a  for  M'OrR  to  8*1  by  -1 
120a  C((L,H-R.n-R1>C«1L.M,NI 
121a  next  M 

122.  for  M-l  to  8 

123.  *  *>C*f L.M.Ml 
124a  nest  N 

125a  nest  Lirot 
126a 

127.  'PRINT  COLUMN  HEADERS*. 

128.  .rt  'SCREEN*. 'peO.*, pit  1 .  HI 

129.  .tb  ‘SCREEN*. ‘esO... pel, a. tx  Dote  T loe* ,3, 13,18 

130.  -rt  'SCREEN*, 'peO.', pit  19.-X,.tb  'SCREEN' , *csO , . .pel , a . t xPhese* ,3, 13, 18 
131a  for  B-E'l  to  E'Oi.rt  'SCREEN* , 'peO, • 

132.  pit  27MlCB-E-ll.-ICi-tb  'SCREEN* , 'es8 , . . pel , a  a ts  * PCTtBl .3,13.18 

133.  next  8  |K ♦ 1>K 

134.  M-t  "SCREEN*.  *peO*,plt  l.Ht 

135.  -tb  "SCREEN* ,*csO,a.pel,.atxoox«esRsxseeao*,3,13.29 

136.  for  B-l  to  0*l|.rt  'SCREEN* . *pe8.* 

137.  pit  16«llCB-0,-K|.tb  'SCREEN* . *es8, . .pel, .. t*e*oe«Ae*«**  ,3, 13.18 
138a  nest  B 

139.  K«2)Kir«t 


"SUBPROGRAM.  LIST  VOLTAGC  CHANNCL  DATA*. 


it  (vi  it  Miller 
January  14,  1991 
Naval  Ifieareh  Laboratory 
Spaca  Apol, cottons  Branch 


Fllo,  .  SC  AOS 
Uudotei  Dec  ember  20, 
Output  Devicit  7245 
Select  Code.  70S 


5 1  'fiat  OS  PARTIAL  LIST** 

IOi  tf  jeOijiap  3 

til  ISC  3 1 pr  t  " Ho  VOLTAGC  DAT  A  ",  *  a  1  1 1  be  Obtained* 

I2i  pr t  ‘thl*  Test • *  ,  spe  3,sto  "RETURN* 

I3i  spe  3 1 pr t  . .  VOLTAGC  LIST*. . *  HP*  2 

1 4 1  prt  'teyls  Special*,*  Function  Key.*, spe 

15.  prt  M#  te  list  ALL*,*  data*, Ml  ta  list  data* 

1G.  prt  *  collected*,*  since  12.08*,*  Nldmqht* ,  spe  3 

17.  *CVCLE* i I f  f 1 qO , 0)V ,  cfq  Oil ap  3 

18.  tf  flqlillViurt  "CLOCK", "R", red  ‘CLOCK*  ,144  ,H4  1 1 ,2Unt(  4  ,5 1 10*  ,cfq  t,lmp  2 
IS.  q ta  -CYCLE* 

28* 

21.  "PRINT  BOX*. 

22.  fat  3.cl4,i|fat  4,clO,*|f<el  5  ,  *  ■«  aaesaassaaae*  ,l 

23.  fat  . . .  7,f9.3.X|fal  B.c5,x,nf«t  9,c8,x 

24.  alb  "PRINTER*, 13.f  or  14>1  to  lG,atb  "PR  INTER"  ,  32  ,  nest  ft 

25.  »tb  "PRINTER*, 27, 4S.f  or  L-l  to  5ifor  14-1  to  !2i.tb  "PRINTER*  ,32 1  next  M 

26.  atb  "PRINTER*. 27. 49, next  L,atb  • PR  I HTER* , 13, 18 ,18 

27.  *  Thermal  Vacuua  Test  Fact  11  ty  *1148 

28.  art  ‘PRINTER*.*  xsaee"  ti4tt‘s»sad* 

23.  fat  1.40"«*. /.*■*, 38*  *,*P*i«tb  "PRINTER* ,19, 18, 13, art  "PRINTER. 2* 

38.  04(1 ,214**  *409(3,414*  *  *40915 ,63  Hit , qsb  "PAO* 

31.  art  "PRINTER*. *«  Start  Date.  *11499* 

32.  fid  2.slr(l/Psle-GJt"  MHz">n4,qsb  *PA0* 

33.  art  "PRINTER*. *■  Slqnal  Frequency.  "11444*  ■* 

34.  fxd  0,str(G>9*  asec‘)14t,qsb  "PAD* 

35.  art  "PRINTER*.  *e  Gate  Time.  *  11449*  %•' 

36.  fxd  0,xtr<X-l>Z>)l4t,qsb  "PAO* 

37.  art  "PRINTER*,"*  Number  of  Points.  *11449*  ■* 

38.  fxd  0.strCI)4*  eecs"  1744  ,qsb  "PAO* 

39.  art  "PRINTER*, **  Measurement  Interval.  *11444*  •* 

40.  F41M4, qsb  "PAO* 

41.  art  "PRINTER*.**  Data  File  Naaet  *11444*  ■* 

42.  *.SCA06*ll44,qsb  "PAO* 

43.  art  ’PRINTER*,**  Proqroe.  *11444*  ■* 

44.  fat  1 ,  "  ■*  ,38*  *,"**,/  .40"**  ,ar  t  "PRINTER.  1.*  ,atb  "PR1HTER*  .  1 0 , 1 0 , 0>E  1 1  mp  3 

45.  "PAO*. for  L-l  to  12, tf  N4(L.L1-**|*  "INttL.LJ 
4G.  next  L,rat 

47. 

48.  "PRINT  COLUMN  HEADERS*. 

49.  075, J-E7D, tf  075,D-5>S,5>0 

50.  art  "PRINTER. 3*,*  Data  Ttae  *iatb  "PRINTER* ,9 

51.  art  ‘PRINTER. 4*. *Phasa  *,for  L-E*l  ta  £*D,vtb  'PRINTER*,* 

52.  C9IL1 JR4  ,  f  or  M-l  ta  3-tnl  Uen(R43/2}  ,R44*  *>R4,next  N 

53.  art  ’PRINTER- 4* ,R4 , next  Liatb  ’PRINTER* , 10 . 13, art  "PRINTER. 3* 

54.  for  L-l  ta  D*l,atb  ’PRINTER*  .9,  art  "PRINTER. 6" ,  next  *. 

55.  atb  ‘PRINTER*. 18. 13 
5Se  ' 

57.  ’PRINT  DATA*. 

58.  for  L-l  to  Zirread  l,L*4,R4,lf  V  and  R4<U91* 800000* , next  L 

59.  rread  1  ,L*4 ,  R4  ,R,  f  or  M-l  to  Jtsread  1,14(74], nest  A 

60.  art  * PR I HTER. 8* .R4(l,2J4*-*lR4f3,4J 

Gt.  art  "PRINTER. 9* ,R4(5,G14* . * 1R4 (7, 314*. ’1R4E9, 181 

62.  atb  'PRINTER* ,9,fot  t ,el0. 4 ,x ,art  "PRINTER. 1*,* 

63.  for  M-C*l  to  E’O.atb  ‘PRINTER*  .9, art  "PR  INTER.  7*  , N174I , next  M 
G4.  atb  "PRINTER* ,18, 13, next  L,atb  "PRINTER*. 12 

GS.  tf  SPOtC’SlCiRto  ‘PRINT  COLUMN  HEADERS* 

GG.  atb  "PR  I  HTER  *',27,  69 
G7.  ’RETURN*. rot 


•PPCGSAH,  GCNC8AL  PURPOSE  USC*  EHTRY  PLOT*. 


•  I  evt.  mll.r 

■  July  28.  133* 

■  Naval  Pe.rarch  Laboratory 

*  trace  Appl leal  Ion.  Branch 


run  usros 

Update,  July  ?B.  138* 
Output  Dfvlc.t  72*5 
Select  Coaci  705 


'OCT  AXtS  L1W1TS  AND  DATA*, 
da*  ’PRINTER* . 706. ’PLOTTER* .70S, ’CLOCK’ ,9,f It  tl 
dim  A, 8.01500 ,21 .HI21 .VI 21 

dim  CII  121  ,F  MB)  .HI  [  80  1  ,.-11190)  .NII20)  ,vt  IB0),SII  4,2)  ,  ;•(  121  ,v<13) 

*ot’)S*IIl,’nd’lS»121,’rd’>SM31,’th’)SU41 

cat  "Cnlae  X  Itln'.Hll] 

If  HI  1 1 < - 339. 3399 idip  ’Value  Null  9e  Oreatae  Than  -1000*, .all  1500, Jap  -1 
ant  ’Enter  X  nax*,Hl21 

if  HI  237999.  3999,  dso  ’Value  Hunt  Sa  Leu  Than  1000’, .alt  1500, ;  »p  -1 
If  Htll>-HI21,dap  ’Invalid  Entry', .alt  1500, Jap  -A 
ant  ’Huabar  of  Horljontal  Tic  Parka*, H 

If  Clnt(H))H)>40,dno  ’Hu at  Be  Leaa  Than  41*,. alt  1500, Jap  -1 
ant  ’Huabar  of  X  Ana  Decimal  P 1  ac  ea*  ,  B ,  1  n  1 1  87  >• 

If  8>2,dap  ’Valua  Hunt  Ba  Leaa  Than  3’i—eil  1500,  Jap  -1 
ant  ’Cntar  X  Alia  Label  (70  Char  Pox)’, HO 
If  1  a n(H4 ) > 70 , dap  ’Label  Too  Lonq’f.alt  1500, jap  -1 
hi } pa , 70)Z ,qnb  ’CENTER* 

-IlHt.ant  ’Cntar  Y  Nu'.VUl 

If  v( 1 1 < - 999. 9939 , dap  ’Value  Hunt  Sa  Greater  Than  -1000’, .alt  1500, jap  -I 
ant  ’Cntar  Y  Pax*,V(2] 

If  VI 2 1)999. 9999, dap  'Value  "uat  Be  Leaa  Than  1000’, -alt  1500, Jap  -1 
If  VI 1 1> -VC2) , dap  ’Invalid  Cnlry*,.ait  1500, Jap  -4 
ent  ’Huabar  of  Vertical  Tic  Parka*, V 

If  (lnt(V))V)>2S,dap  ’Punt  Ba  Leaa  Than  26*, -alt  lS00,jap  -1 
ant  ’Huabar  of  Y  Acta  Decimal  PI acea* ,M, 1 nt CM) )W 
If  U)4,dnp  ’Value  Puat  Be  Leaa  Than  S', .alt  1500, Jap  -1 
ant  ’Enter  Y  Acta  Labe)  C70  Char  Pact’  , VO 
If  1  en(  Vt  )  >  70  ,  dap  ’Label  Too  Lon<t*i— alt  1500, Jap  •  1 
Vt!-l,70)Z,qnb  ’fEHTEJR* 

TI)VI,enl  ’Current  Year  YY’,Y«,lf  1 enCYl ) /2 , J ap  0 

ant  ’Clock  Naaa  (10  Char  flex)*, C* 

If  lent  CO  1  >  10  «dap  *Haae  Too  LoiM,',»ait  1500, Jap  -1 
CI).NI,10)Z,qnb  ’CENTC** 

POCtient  ’Aaaaeiatad  Data  file  Haac’.FO 

if  len(r 07)6 , dap  *Haae  Too  Lonq’j.att  1500, Jap  *1 

Flint ,6>Z,qab  ’CENTER* 

PDFI.ent  ’Enter  Your  Naaa  <17  Char  PaxJ’.HO 
If  len(HI)>17,dap  ’Home  Too  Lanq*,«elt  1500, Jap  -5 
HI  }Ht  ,  1  7)2 ,  qab  ’  CENTER* 

KI1HI , fed  0 , f or  L-t  to  1000 

4aaodl0-0J-(LmoJl0-l7’2CLaodl0*2)’3a*odl0-37’4(Laodl0>3)»l 
If  Lmodl 00)9  and  Laodl00< 14 >411 

dap  ’Enter’IatrfUlSOtUi*  X’.eat  ••.OlL.lJ.lf  flql3,qto  *7 

If  GfL.n<Htll,dap  ’Beloa  Llalt’iMlt  1500, Jap  -1 

If  G(L,ll>H12),dap  'Above  Liait*,*att  1500, Jap  -* 

dap  ’Enter  *0ntrCL)4S0tI)4*  Y’,e»t  ’*.6fL,2l 

If  GrL.2)<Vm,dap  ’Belov  Llalt’,*alt  1500, Jap  -1 

If  GtL.21>VC21,dap  ‘Above  Llalt',»alt  ISOO.Jap  -t 

next  l 

L- 1 ) H , f or  L-l  to  N- 1 , f  or  H«L’I  to  M 

If  OlL.lXGlK.lliJnp  3 

GtH.l J)A,GtL.l))G[P.ll ,A>G(L.l] 

G1H,21)A|G(L,2))GCH,2) ,A)GtL.2l 
next  )l,next  L 

art  9,*R*,red  9.T* ,T»C1 ,2)0*- ’ »T*t 4, SI**-’ »Y$>T» 

•INITIALIZE  PLOT  AREA*. 

fxd  0,hdcpy  l,pae  705, ael  -7. 125 ,0 , 0, 10. 5 ,pl t  0,0,1 

pit  -.75,0 ,2, pit  -.75, 10. 4, pit  0,10. 4, pit  0,0, pit  -5/16.0, pit  -5/16,10.4 
for  L*1.S  to  9  by  l.Siplt  -3/4,L.l,plt  O.L,2,naxt  L,calx  t. 5, 2, 1,90 
pit  -7.5/16,.67,l,lbl  ’Date*, pit  - 1 /16 , . 5 , 1 , lbl  TO 

pit  -7.5/16,2,1 , lbl  ’Proqroa’ iplt  -1/16 , 1 . 55 , 1 , lbl  *  Gen  Purpose  Plot* 
pit  -7. 5/16, 3. 35,1, lbl  'Data  Source’, pit  -5 . 5/ 16,3. 35 , 1 , lbl  ’• 
pit  -1/16, 3. 4.1, lbl  ’Oner  Entry* 

pit  -3/16,5. 05,1, ltal  ’Polnta’iplt  -5.5/16,5 , 1 , lbl  ’Plotted* 
pit  -1/16, 5. 1.1, lbl  atrOO 

pit  -7.5/16, 6. 4,1, lbl  *  Clock  *,plt  -1/16,6.4,1  ( lbl  CO  - 

pit  -9/16,7.9.1 , lbl  ’Aaaoclaled  ’iplt  -5. 5/ 16,7 . 95.1 , 1 bl  ’Data  File* 

pit  -1/16,8.08,1, lbl  Ft 

pit  -7.5/16. 9.25,1, lbl  ’Executed  by* 

pit  -1/16,9. 05.1, lbl  NO, pit  -1.375,10.4,1 

pit  -7.125, 10. 4, 2, pit  -7.125,lipH  -1.375,1, pit  - 1 . 375 , 1  0. 4  ,  f  1 1  9 

ael  VIZ J ,1 . 23913V1 11- . 23313V121 ,Hl 11-CHC2J-HI 1 1 J/9. 4,H1 2 l’(H( 2 J -HI 1 3 )/94 

•LABEL  AXES*  «  ' 

for  L-VIll*(<VI21-vm)/V)C)  to  V121-C  by  C,plt  L.H12I.1 
pit  L,H(21-<H(2)-HIl)7/10Q,2,next  L 

for  L-H(2]-C(H121-Htl»/H>D)  to  Htll’D  by  -Diplt  VI2J.L.1 


*  *)  ■>  - 'V  ■  •  * 


V.  -W 


105 


87 •  pit  Vt21-<VI2]-V(ll)/70.t..2inr.t  L 
88.  cut  1.7,1. 90. (or  1-VI21  to  Vt  1 1  by  -C 

99.  pit  l-(VI2]-vtll)/93,rtll}-(HI21-Mlll}/17.1 

90.  if  ab. (L) > • 1 00 i ( i d  4, lbl  .lr(L),ote  *3 

91.  If  obi (LI ) • 1 0 , f id  4, lbl  *  *iilr(L3,qla  »t 
97.  (id  U.ibl  *  ’titr(L) 

93.  l(  L  r Vt 1 i  ond  LfV(21,plt  L. Htl), 1, pit  L . H tl> • ( HI  2 1 - HI  1 1 > / j 00 ,2 

9o.  nut  Item  1.5. 2.1  .ISO.plt  VI 1 1 .  <  vt  2  3  -  vt  1 1 1 /30  ,  HI  1 1  -  <  HI  21  -  Ht  1 1  )  / 12, 1 

95 •  lbl  VI, cill  I. 2. 1.90, (or  L-HIl)  to  HI21  by  D,lf  L-Htll  or  L-HI21|jap  2 

96.  pit  Vtll.«Vt21-Vtl))/70.L.l.plt  VI1J.L.2 

97.  pit  Vt 11- CV121 -VI 1 11/25 .L- (HI  2] -H! 1 1) / I  00.1 , f id  9, lbl  itrCLl.nnt  L 

98.  cut  1.5, 2, 1.90, pit  Vtll-(VtZl-Vllll/12.25.Hlll-(Hm-HI113/4.71.1,lbl  H» 

99. 

100.  'PLOT  OPT**, 

101.  pit  611,21, 0(1, 13, l.cplt  -.33, -.15, lbl  *o*,plt  6(1,21,611,11,1 

102.  for  L-2  to  H.plt  GIL  ,  2 1 ,6(1. ,  1 1 ,2  ,  next  L.pcn 

103.  eplt  -.33,-.  15,  lbl  "o^-tb  "PRINTER-  ,12,13,27, 69 

104.  ond 

105. 

106.  •Tint*. 

107.  OlQ.for  I4>1  to  vaKTIf  1,217-1 

108.  It  14-1  or  14-3  or  M-5  or  14-7  or  P-8  or  14-10  or  N- 1 2 , 8- 26784 00 1 0 , ) «p  3 

109.  If  14-4  or  14-6  or  14-9  or  (1-  1 1 , 6- 25  92  0  C  0  1  0 ,  |  op  2 

110.  If  M-2.Q-241920018 

111.  next  H 

112.  a-eeooOvaKTMS.OD^eOOvalCTilS.&llia 

113.  ret  8-60val(T*(7,83}-vaUTIl9,103J 

114. 

115.  "CENTER*, 

116.  for  l-l  to  Intf CZ-len(H«>J/2J 

117.  •  •*Mt  114*,  next  L 

118.  rot 
■11463 


PROGRAM.  ANSI  STANDARD  MAGNETIC  TAPE  PROGRAM  CQPV*. 


2 1  . . •  • a. a  a....... ..asareaasaeeaaa', 

3.  *■  r  evt  n  Miller  ■  Til*.  MAG  '‘•'A  o', 

4 ■  *>  June  22.  1981  ■  Updatei  Jv.y  30,  1983  o'. 

3.  *■  Navel  Beifirch  laboratory  ■  Output  Orvtcei  4600  a*. 

6.  *0  Space  Applications  Branch  ■  Select  Codei  716.  717  o'. 

7.  ••••••••a.. ................... .......a*, 

8. 

9.  •DECLARE  DEVICES.  VARIABLES,  AND  FORMAT  STATEMENTS*. 

10.  dap  'Insert  Softcopy  Graphics  Tape'.stp 

11.  Idb  1 1 dev  'MAG CTRL # ,716, 'MAGRW' ,717 

12.  dla  C,G, 1 , J.L ,M,N,P ,a,V,r»161 ,Gt (61 .MI1171 

13.  fat  l.t, * VOL  1 PROG ' , 29s , *0X81111007007', 29z,'l* 

14.  fat  2,s,c4,cl7,‘PROGMS00010001000100  00000  00000  OOOOOODECr 1LE11A* ,10i 

15.  fat  3.i.c4,'F00S12005l2'.21s.'H',13i.'00',2Bi 

16. 

17.  If  btt(3,rds( "MAGCTRL'3  7 • I 1 j  ap  2 

18.  dsp  'Mount  Maqnetle  Tape  Reel'iatp  .lap  -1 

19.  If  bltC2.rds( 'MAGCTRL'3  3  41 ,  J  no  2 

20.  dsp  'Tap*  li  Writs  Protected' istp  .Jap  -3 

21. 

22.  'GET  PROGRAM  AMO  COPY*. 

23.  eat  'Enter  Proqroa  to  Copy'.FO.lf  flql3.qto  *EMO* 

24.  asqn  F0,l,0,8tlf  Os2idap  Fit*  does  not  exlst'.ualt  1500|jap  -1 

25.  »rl  'MAGCTRL*. 'CC103  BS 1805 ' i F I 1G0 

26.  for  L*1  to  len{rt3,cop<FllL.L333FtfL,L3. next  L 

27.  for  L*1  to  len<Ft3,lf  CnualF S 1L .L 1 3 ) Q> >48, | f  R<90inext  L.lap  2 

28.  “0'lFttL ,L  3 1 nest  L 

29.  Fit* .POT* IMS i for  L*len<M03«l  to  17|Mto*  ‘IMtinest  L 

30.  urt  'MAGPW. 1 • |.r t  'MAGRW. 2' , 'H0R1 ' ,MI ,ur t  'MAGRM.3* , 'H0R2* 

31.  urt  'MAGCTRL' , 'WE  BSIS123* 

32.  chain  Gt.100,33 

33.  list  4717.108 

34.  fat  2,x.e4.cl7.'P«OGMS00010001000100  00000  00000  OOOOOODECFlLCllA'.lOa 

35.  fat  3.i.e4.'F0051200512',21*.'N'.13*,'00',28* 

36.  urt  'MAGCTRL* . 'WE  BS(80)*.urt  'MAGRW.  2*  , 'EOF  1 '  .fit , art  'MAGRW. 3* . 'EQF2* 

37.  urt  'MAGCTRL' . 'WE' .qto  ‘GET  PROGRAM  AMO  COPY* 

38. 

39.  'EMO*. 

40.  urt  'MAGCTRL '.'RM* 

41.  dsp  'Proqraa  Copy  Coupleta* 

42.  end 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

51. 

St. 

53. 

54. 

S5« 

56. 

57. 

58. 

55. 

60. 

61. 

62. 

63. 

64. 

65. 

66. 

67. 

68. 

65. 

78. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 


78. 


79. 

80. 

81. 

82. 

83. 

84. 

85. 

86. 


Oi  ’PROGRAM.  ANSI  STAHDARO  MAGNET 1C  TAPE  DATA  COPY*. 
1. 


2. 

3. 

• »  * 

Kevin 

nuicr 

•  •  • 

■ 

flic*  MACD AT 

>i«a*i 
i*  i 

« . 

June 

15,  1981 

■ 

Update*  July 

30.  1983 

a1 1 

3. 

*« 

New*  J 

Research  Laboratory 

a 

Output  Device 

i  <600 

«•  i 

6i 

7. 

•« 

Space 

Applications  Branch 

a 

•  ■  • 

Select  Code* 

716,  717 

i 

ini'  ■ 

a. 

9.  ’DECLARE  DEVICES.  VARIABLES.  AND  F ORMAT  STATEMENTS* i 

10.  dev  'MAGCTRL  ’  .  716 ,  'MAGRM*  ,717.  ’CLOCK*  ,9 

lit  dla  C.G,I.J.L.H.N.Pia.V,CI25],Ctl25.i01,0»[61,F»t61,J*t251,M»ll71,T»ll2J 

12.  fal  1.x, ’VOL  1 POTF ’  . 29* . ’DIB1111007007* , 29* , ’1 ’ 

13.  fat  2.x ,c4.cl7. ’POTF  00010001009100  OQOOO  00000  0 00 OOODECr I  LEI 1 A* , 1  Ox 
1«.  fat  3,x,c4,'F005i200512',21x,'M',13x,*00',28x 

15.  fat  4,f8.3.f6.0.*.f6.0,c9,el3.4.f5.l 

16.  fat  3,f4.0,cl3,x,c3 

17.  fat  6.x. ell .elS.6 
IB.  fat  7 , x • f 10. 4 

19.  fat  8./ 

20.  fat  9,/,f8.4.x 

21. 

22.  "MESSAGE* . 

23.  spe  3ipr t  . .  MAGNETIC  TAPE*,’  TRANSFER* 

24.  prl  spe  2.prt  ’Thu  proqraa*  ,  ’.1 1 1  copy  one  or* 

23.  prt  "more  data  ftlea'.'lo  tape.*,*  ’, ’Enter  CONTINUE* 

26.  prt  "to  the  pr oapt* . • <Ent er  Oata  Flle'.’la  Copy>  la* 

27.  prt  ’writ*  EOF’a  and’, "rewind  tape. 'tape  2 

28.  if  blt(3.rd*<’MAGCTRL’05-liJae  2 

29.  dap  ’Mount  Maqnetle  Tape  Recl'iatp  i]ap  -1 

30.  if  blt(2,rda<’MAGCTRL’»#lilap  2 

31.  dap  ’Tape  la  Mrita  Protected*  iitp  ijap  -3 

32. 

33.  ’GET  FILE  AND  COPY*. 

34.  ent  'Enter  Oata  File  to  Copy’,Ft|lf  f!ql3iqto  ’END* 

33.  aaqn  Fl.l.l.Qiif  Q-l.dap  Til*  doea  not  exiat’iwait  ISOO.Jap  *1 

36.  aaqn  Ft.l.liwrt  ’MAGCTRL' . *CCC 0)  BS(80>* 

37.  for  L-l  to  len<ro)|capCFXIL,Ll)>FttL,LJinext  L 

38.  for  L-l  to  lenCFDiif  CnuatFtIL  ,LI3  IDO  >48,  if  a<90,ne*t  L||ap  2 

39.  *0*)F0fL.L!« next  L 

40.  Fll* . DAT’ > MO i for  L" 1 en CMt ) • 1  ta  17iMtt*  'IMO.next  L 

41.  wrt  ’MAGRM.l'iwrt  'MAGRM. 2*  ,  ’HDR1'  ,Mt|wrl  'MAGRM. 3'  ,  'HDR2* 

42.  wrt  ’MAGCTRL*. 'ME  BSC512J*  * 

43.  rread  1 , 1  ,G ,H. I , D* ,P , Jt wrt  'MAGRM. 4' .G.M.I ,DI ,P, Ji art  ’MAGRM. 8* 

44.  for  L-I  to  Jiaread  1  ,CILJ  ,CML1 ,  JOIL  ,LJ  i  wrt  ’MAGRI4.5’ .CILl  ,C*CL1 ,  J*IL  ,LI 
43.  next  L(wrt  ’MAGRM. 8' jf or  L-l  to  Ntrreod  1 ,L ’4 ,T» , C ( wrt  'MAGRU.6' ,T0,C 

46.  if  J"  0  i  J  ap  3 

47.  far  M-t  to  Jtaread  l.V,lf  Mnod8-ltwrt  'MAGRM.  9*  ,V|  next  M|]ap  2 

48.  wrt  ’MAGRM. 7*,V, next  M 

49.  wrt  'MAGRM. 8*> next  L 

30.  wrt  'MAGCTRL' . 'ME  8SC907*iwrt  ’MAGRM. 2* . ’E0F1 * ,M0 iwrt  ’MAGRM. 3* ,'EOF2* 
51.  wrt  'MAGCTRL*.  'ME*  into  ’GET  FILE  AND  COPY* 

S2« 

33.  'ENO*. 

54.  wrt  'MAGCTRL’.'RH* 

55.  dap  'Tope  Copy  Coaplete* 


56.  end 


10.0  Operating  tne  Vacuum  Chamber 


Follow  the  st«ss  below  to  evacuate  tha  chs*o»r  manually: 

1)  crass  tha  ROwER  CN  Sutton 

2)  if  tha  alarm  goes  off*  orass  ALARM  RESET 

3)  sat  tha  ooaration  mode  to  mjnual 

4)  closa  all  valves 

5)  start  tna  ROUGH  and  3ACK£R  pumps 

6)  chacit  tha  champ ar  doors  for  obvious  leaks 

7)  opan  tha  RDUGh  and  PQ9EIINS  valves 

3)  whan  foralina  pressure  drops  below  100  millitorr,  turn  tha  DIFFUSION 
PUM»  on 

9)  sat  tha  rad  trio-point  needle  on  the  foralina  pressure  gauge  to 
100  millitorr 

10)  turn  duplex  corner  on 

11)  when  chamber  pressure  drops  below  50  millitorr,  close  the  SOUGH  valve 

12)  open  the  HIGH  VAC  valve 

13)  pressure  should  droo  on  the  chamber  pressure  gauge 

14)  when  it  is  no  longer  readable,  turn  tha  IONIZATION  GAUGE  on 

15)  turn  the  filament  on  whenever  a  pressure  reading  is  desired,  but  do 
leave  it  on  long  as  the  filament  nas  a  short  half  life 

16)  sat  the  THERMOCOUPLE  select  switch  to  the  chamber  base  plate 

17)  turn  THERMAL  CONTROL  on  to  control  temperature  inside  the  chamber 


To  turn  the  vacuum  chamber  off: 

1)  turn  the  IONIZATION  GAUGE  off 

2)  turn  THERMAL  CONTROL  off 

3)  wait  1  minute  for  compressor  fan  to  cut  off  if  refrigeration  was  on 

4)  close  all  valves 

5)  turn  the  DIFFUSION  PUMP  off 

6)  if  the  chamber  temperature  is  above  0  degrees  C,  the  VENT  VALVE  can  be 
opened 

7)  press  the  POWER  OF®  button 
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